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COMPILERS GUIDE FOR VZ USERS 
Bob Kitch 
Brisbane March 2021 


VZ-Verbatim is a research resource for the DSE VZ00 and VZ300 micro-computers marketed in 
Australasia during the 1980's - in the pre-PC and post-TRS80/System 80 eras. Many young (and old) 
computer users cut their digital teeth on these Z80-based machines. A number of VZ User Groups 
also sprang up, held meetings and produced Newsletters. There was a huge thirst for knowledge, 
enthusiasm, learning, coding and general learning about "things digital" centred upon the VZ. 


All of the information in this compilation is long out-of-print and quite difficult to obtain. It may not 
be sold or recompiled into any other format without my express permission. Note the highly 
practical electronic and computing information that was offered in technical magazines of this era. 


An information companion to VZ-Verbatim is the "Bob Kitch's VZ Scrap Book" that contains thirty 
technical contributions | made to magazines and various User Groups Newsletters during 1985 to 
1990. Approximately 25 BASIC and ASSEMBLER ASCII listings are provided in that Directory. These 
articles were about learning and encouraging VZ Users to develop digital skills and interests. 


VZ-Verbatim was a last-Century response to an information demand to encourage a new generation of 
digital enthusiasts in the pre- WWW era. It was compiled during 1985 to 1990 but with articles going back 
to 1981. The original format was as loose A4 Master Sheets wherein specific photocopies could be returned 
by snail mail to interested and puzzled VZ Users. As interest in 8-bit computers waned in early 1990's, a 
lone copy of VZ-Verbatim (as two volumes) was made (pictured on cover). It is in the last month these 
volumes have come to hand, been scanned at 400dpi and converted to pdf's. 


As a late incarnation of the 8-bit microcomputer era, the Video Technology/DSE VZ200/300 was highly 
influential in homes throughout Australasia and under other names elsewhere in the World. A fair level of 
interest remains amongst enthusiasts in Vintage Computer Groups and Emulators Users. A number of now 
middle-aged men, were young enthusiasts that learned about computing in the 1980's and still use the VZ 
for largely nostalgic reasons. | note that a remarkable number of these young enthusiasts are now 
employed in the IT industry. These enthusiasts are instrumental in maintaining Z80 emulators and 
hardware, have added more convenient I/O peripherals than the contemporary cassette and floppies and 
have added memory capabilities beyond 64K. Tape and disk software has been converted to more durable 
digital formats. 


Preserving and providing ready access the "Lump" of VZ technical information, software images, operating 
hardware and emulators is regarded as a priority. This compilation is part of that "VZ Lump". 


Bob Kitch 

Brisbane, Queensland, Australia 
E: rbkitch hotmail.com 

M: *61 (0) 400 083 465 
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Structure of Volumes 
Following on the blue pages is a complete listing of all articles contained within Volumes 1 and 2. 
This is shown in the original list format that was frequently updated and circulated to VZ Users. 


Pages 12 to 14 of that list is included for completeness. These pages are a list of books on BASIC, Assembler 
and the Z80. Most of these are available on-line as e-books in pdf format. 


The yellow pages detail the various sections within the volumes. 


Volume 1 contains software articles categorised as 
Utilities 
Games 
Business 


Volume 2 contains 
Hardware Peripherals 
Software Reviews 
Software Advertisements 
Hardware Reviews 
General Programming 
DSE Technical Bulletins. 


These volumes were derived from 400dpi scans of second generation photocopies of the original bound 
articles and were delivered in Adobe Acrobat pdf format. 


Using Adobe Acrobat Pro 2017 each page was edited and enhanced involving 
° character recognition to provide editable text and images 


° text and images de-skewed 
° font replaced with document fonts for sharpening 


-li- 
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LISTING ОҒ V2200/300 МАСА2ІМЕ ARTICLES 


AS АТ 31 JULY 1990 


Since its introduction in early 1983, over three hundred articles 
on the VZ-200 and 300 have appeared in the magazines. Some articles 
review the hardware and others describe peripherals. Some excellent 
games have been published and a very useful set of utility routines has 
emerged. 


This bibliography for the VZ computer is a must for the serious 
ул-<Швет. 


Compiled by:- 


ВОВЕ Кеше 7 Етел SE. Renmore, Olde 4069. Phone (OW 3793745: 
PLEASE ADVISE OF АМҮ ADDITIONAL ARTICLES ..or.. CHANGES, ALTERATIONS OR 
BUGS IN LISTINGS to assist other Users. 


The numbers in brackets are the number of sheets in each article. 
A dash (-) indicates that the article is on the same sheet as the item 
above. 


If Users wish to obtain copies of the articles referred to in this 
bibliography, they may - 


i) contact ше for copies ©. .or. 
ii) buy back copies of the magazine from che distributori ЖОЕ с 
i111) Dorrow from your shoe el аку 


I can supply copies FOR YOUR OWN USE ONLY ас 20с. per sheet. 
Kindly add postage to your request as follows: 


No. of Sheets Qld. Interstate (Surface) 
l = 8 50.41 50.41 
4 - 18 50.95 Si, LC 
19 - 90 $1.90 (32). 50) 


> 90 expensive! 


oct. 
Jan. 
Nov. 
Nov. 
Feb. 
Mar. 
Apr. 


May 


Jun. 
Jul. 
Mar. 
Apr. 
JE 
Juls 
Aug. 
Aug. 
Aug. 
Apr. 
Aug. 
Aug. 


Nov. 
Nov. 
Sep. 
Sep. 
(усул е 
Nov. 
Nov. 


Nov. 
Nov. 
Dec. 
Feb. 
Feb. 


Feb. 
Mar. 
Apr. 
Apr. 


Apr. 
Apr. 
Jur: 


May 
May 
May 


Aug. 
Aug. 
Sep. 
OEE. 
(OEE с 
Nov. 
Nov. 


UTILITIES 
83 APC 
84 APC 
83 APC 
83 APC 
84 APC 
84 APC 
84 APC 
84 APC 
84 APC 
84 APC 
84 ETI 
85 ETI 
84 BB 
84 M80 
84 M80 
84 M80 
84 M80 
85 APC 
85 APC 
84 APC 
84 APC 
84 APC 
84 “СІ 
84 BB 
84 ЕТІ 
84 АРС 
84 АРС 
84 PCG 
84 PCG 
84 BB 
85° ABC 
85 APC 
85 АВА 
S5 ат 
85 РСС 
85 АРС 
85 АРС 
85 АРС 
85 АРС. 
85 АРС 
85 ЕТІ 
85 APC 
85 АРС 
85 АРС 
85 АРС 
85 АРС 
85 АРС 
85 АРС 
85 ЕТІ 


BASIC program conversion. (Surya) 


Beginners tips. (White) 
Program conversion Pt. 2 (Surya) 
BASIC converter chart. (Surya) 


Program conversion Pt. 2 (Surya) 
Program conversion - Apple II (Surya) 
Program conversion - TRS 80/System 80 


(Surya) 
Program conversion - Atari (Surya) 
Program conversion - Sinclair (Surya) 


Program conversion - BBC (Surya) 

More functions for the У2-200. (Olney) 
Notes and errata for Olney. 

Some more routines. (Middlemiss) 

VZED - three new functions. 

Mi 20/0) output taton. 

Memory peek VZED. (Carson) 

Microsoft ROM BASIC Level I bug. 
V2-200 bug. (Tritscher) 

уй bug. (Шелессһек) 

VZ-200 moving message and trace. 
(Batterson) 

Trace function. (Breffit) 

VZ-200 correction. (Kelly) 

V2200 Input. (Woolf) 

Poking extra functions. (Clark & Hill) 
Extending У2-200 BASIC. (Olney) 


TRON/TROFF function for VZ-200. (Thompson) 


MON-200 machine code monitor. 
(Stamboulidas) 

Lprinter. (Quinn) 

VZ-200 reverse video. 

Enlarged characters. (Velde) 

BASIC understanding. (Hobson) 

WA= 200: into püberty = Olney" 

| extended BASIC. 
Calculating grey line. (Baker) 
Renumber. (Marsden) 

Find. (Stamboulidas) 

Use of RND in dice and card games. 
(Holland) 

VZ variable definition. (Stamboulidas) 
Variable GO TO on VZ. (Olsen) 
Correction to VZ variable GO TO. 
Lysco support for VZ-200. (Young) 
VZ-200 hardware interrupt. (Olney) 
Background VZ. (Williams) 

VZ-200 instant colour. (Willows) 
Reversed REM. (Quinn) 

Real-time clock. (Griffin) 

APC benchmark BASIC programs. 

VZ deletions. (Quinn) 

VZ EDITOR/ASSEMBLER tips. (Lam) 
Olney’s Level II BASIC for VZ200/300. 
(Rowe) 
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8355 
NAG 
eharte 
103-5 
54-55 
209 
86-89 


2168535 
89=92 
1 OE 122 
113221 


VZ user graphics. 

Machine language calls. 

APC BASIC converter chart 1986. 

VZ-200 cassette inlays. (Dutfield) 

VZ and photography. (Kohen) 

VZ pause. 

VZ software mods. (CHIP-8 Editor) 
(EEA £f ir) 

УШ GHT GEEIe peter (Griffin) 
Screen handling Ооп VZ. Bart U. ИКЕ) 
Screen handling on VZ. Part Il. (Kitch) 
Reference list of VZ articles. (Kitch) 
Labeller. (Gallagher) 

Amateur radio logger. (Johnson) 
Speaker enclosure calculator. (Allison) 
Memory mapping оп У2. (Kitch) 

Feedline calculations. (Buhre) 

Op amp noise. (Allison) 

Beam Headings. (Baker) 

VZ EPISOn printer Balch. pay ex) 

WA Sp Sem рл е ра син Ete TI. 

VZ expanded EPROM. (Meager) 

Restore file. (Banks & Saunders) 
B-file сор1ег. (Buhre) 

String file name. (Hand) 

Disk directory dumper. (Tunny) 
CTRL-Break disabler. (Tunny) 

VZBUG. (Batger) 

Clocks CI) 

DOS Hello (Tunny) 

Visisort (Sheppard) 

Restore (Rowe) 

Hex/dec conversion (Maunder) 

Beam headings (Baker) 
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GAMES 
Nov/Dec83 
Dec. 83 
Feb. 84 
Jan. 84 
Apr. 84 
SUL - 84 
Ж ЛЕ, 84 
ӘДЕП 84 
Aug. 84 
Aug. 84 
(cR 84 
Nov 84 
Jan 85 

- 85 
Mar 86 
= 85 
Jan. 85 
Jan. 85 
Jan. 85 
Feb. 85 
Mar. 85 
Mar. 85 
Apr. 85 
Apr. 85 
May 85 
May/Jun85 
Jun 85 
Jan. 86 
Tulk 85 
Aug. 85 
(@ еле с 85 
oct: 85 
Mar. 86 
May 86 
ӨЛТІРМЕ 86 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
Apr 88 
Jul 88 
Aug 88 
Nov 88 
May 89 


Projectile Plotting (Grosjean) 
Missile Command. (Whitwell) 

Caddy and Reaction Test. (Hartnell) 
Graphic Sine Waves for VZ-200. 
(Nickasen) 

Moon Lander. (Alley) 

ВО СЛ ОЛЕ (sse) 

Battleships. (Carson) 

Junior Maths. (Carson) 

Contest Log VZED. (Carson) 

Dog Race VZED. (Carson) 

High Resolution Graphics Plotting. 
(Thompson) 

Tips for 'Ladder Challenge', 'Panik' 
and 'Asteroids'. 

POKE's to 'Ghost Hunter'. 

Golf Simulation. (McCleary) 

Golf Simulation. (McCleary) 
Кла 5 Cross. (Tucas) 

Sketcher. (Leon) 

Punch. (Rowe) 

Space Station Defender. (Shultz) 
Lost. (Potter) 

Decoy. (Rowe) 

Mouse Maze. (Crandall) 


Painter. (Daniel) 
Roadrace. (Thompson) 
Number Sequence. (Thompson) 


Sketchpad. (Thompson) 
Morse Tutor program. (Heath) 


Morse Tutor - again. (Heath) 
Electric Tunnel. (Daniel) 
Number Slide. (Daniel) 


Cube. (McMullan) 
Yahtzee. (Thompson) 
V2 Frog. (Alley) 


Balloon Safari, The Drop and Flatten. 


(Sheppard) 

Simon. EPIS Oc E) 

Drawing Program. (Winter) 
Tea-pot Song. (Winter) 

Ping Tennis. (Duncan) 
Concentration. (Vella) 

Super Snake Trapper. (Duncan) 
Worm. (Thompson) 

Dogfight. (Thompson) 

Bezerk. (Banks & Saunders) 
Arggggh! (Banks & Saunders) 
Encode/Decode. (Banks & Saunders) 
Catch. (Banks & Saunders) 
U-foe. (Alderton) 
Disintegrator. (Stibbard) 
Star Fighter. (Roberts) 
Drawing Board. (Maunder) 
Camel (Maunder) 
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Aug. 
OEE. 
(WS 
Oeics 
Dec. 


May 


Jul. 
Feb. 


BUSINESS 
84 APC 
84 APC 
65 -APC 
84 APC 
84 APC 
5 АРС 
85. - APC 
88 ЕШ 


ІЛ е? 
214 
DIPL 
126530 
214 
1.92 23 
164-6 
72 
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Database VZ-200. (Barker) 

WP for VZ-200. (McQuillan) 

Comment on Barker’s and Quinn’s DB. (Lukes) 
Minicalc Spreadsheet. (Stamboulidas) 
Corregtión to Minicalc. 

Micro Type(WP). (Browell) 

Database. (Quinn) 

VZ Wordprocessor. (Tunny) 


— — — — — — — — 
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Feb. 
Aug. 
Aug. 
Oct. 
Dec. 
oct.: 
Nov. 
Nov. 
Dec. 
Aug. 
Jun. 


Sep. 
Jan. 
Feb. 


Mar. 
Sine 


Oct. 
Jan. 
Feb. 


May 


Jan. 
Aug. 


May 


Oct. 
Jun. 
Jun. 
Apr. 
Apr. 
ЗО ү 
JE 


May 


Apr. 


May 


James 


SIMI 


PERIPHERALS 
84 EA 
84 EA 
84 РСС 
84 АРС 
84 АРС 
85 x 
84 ВІ 
84 ЕТІ 
84 ЕТІ 
@5 ERE 
86 ЕА 
85 AR 
86 AR 
86 JE DI 
36l" ЕТТ 
Se КЕТТ 
86 ЕТІ 
87 ЕА 
87 АК 
87 ЕА 
88 EA 
88 EA 
89 EA 
88 EA 
87 ЕА 
87 АЕМ 
88 АК 
88 АЕМ 
88 АЕМ 
88 АЕМ 
816 P “ЕНІ 
89 TETTI 
Š8 ЧЕТ 
6dl ETT 
Gel ТӘЛІМІ 
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Real-world interface. 

Improved graphics оп У2-200. (Dimond) 

W/O) carda Tor VZ= 200. (ad) 

Serial help request. (Pope) 

Add-ons for VZ-200. (Bleckendorf) 

V2200/300 Modem. (ad) 

RTTY with У2200. (Keatinge) 

А 'Glass-Teletype' using the VZ-200 Pt I 
n n n " Pt T JE 

VZ-200 terminal. 

WZ serial terminal. (ad DSB KE K617) 

Assembler listing of RS-232 ROM software 

Another RTTY. (Butler) ! 

Morse on RTTY. (Butler) 

Modifying VZ-200 16K memory expansion. 

(Olney) 

Talking У2-200. (Bennets) 

Super II VZ-200 hardware modifications. 

(Sorrell) 

Баа осире 11, 

EPROM programmer modification. (Buhre) 

Morse Interface. (Forster) 

16K Memory Expansion У2300. (Kosovich) 

VZ-300 expansion problem. 

VZ-300 expansion. 

RAM Expansion - Discussion (Sorrell) 

Circuit idea: 

Errata Memory Expansion. 

VZ software. (Thompson) 

Memory expansion for V2200/300 

Ultra-graphics adaptor. (Sorrell) 

Correction. 

Correction: 

VZ апр. (Merrifield) 

Better VZ amp. (Hobson) 

72300 EPROM programmer. (Nacinovich) 

BASIC listing of software 

V2300 data logger. (Sutton) 
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Mar. 
Aug. 


Wie. 


Nov. 
Jan. 
Feb. 
Mar. 
APE. 
Apr. 
OEE o 


Nov. 


Nov. 


COMMERCIAL 
84 APC 
84 PCG 
84 PCG 
84 РСС 
Gis) PCG 
0% PCG 
35. ECG 
85> -BCG 
ёз ETI 
35 PCG 
85 PCG 
95 CLC 


SOFTWARE REVIEWS 


BIO, 


46-47 


0= 99 


209 9/6 
55 

76 

Me wu 
94- 99 
05 
6859 
70 


Spl 


Review of DSE ‘Matchbox’, 'Biorhythms', 
‘Circus’ and ‘Poker’. (Davies) 

Review of DSE ‘Panik’ and ‘Ladder 
Challenge’. 

Review of DSE ‘Knights and Dragons’, 
‘Ghost Hunter’, ‘Othello’, and 
‘Invaders’. 


Review ot busco “Сар Scout апа 

DSE ‘Dracula's Castle’. 

Review ОТ DSE ‘Air Traffic Controller" 
апа 'Tennis'. 

Review of DSE 'Defence Penetrator’ and 
Star Blaster’. 

Review of DSE 'Planet Patrol’ and 
'Learjet'. 
Review of DSE 'Asteroids', Super Snake' 
and 'Lunar Lander'. 

Logbook and Morse on VZ-200. 

Review of DSE 'Duel'. 

Review of DSE 'Attack of the Killer 
Tomatoes'. 

Review of educational software. 


Page 7 


SOFTWARE ADVERTISEMENTS 


A 15 page compilation of ads. 
Services, User groups etc. 


for a variety of software, 
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HARDWARE REVIEWS 


Apr. 83 
AD. 83 
Apr. 83 
May 83 
Omens. 83 
Jun. 83 
Jua 83 
Aug. 84 
ИД 83 
URN 83 
owl. 83 
sep. 83 
Sep. 83 
Aug. 83 
Sep. 83 
oeit: 83 
@ e 83 
ОС; 83 
Dec. 83 
Моу. 83 
Моу. 83 
Nov/Dec83 
Feb. 84 
Spring 84 
UNIS 84 
Aug. 84 
oct. 84 
Nov. 84 
Nov. 84 
Dec. 84 
Mar. 85 
ӘЛІШЕР 5/5 
Aug. 95 
Dec/Jan86 
Aug. 86 
Nov. 86 
Dec. 87 
Dec. бї] 


Texet TX-8000. (Bennett) 

МА 200 (Нак нел) 

Review of VZ-200. 

Video Technology У2-200 РС. CARL) 

New low-cost computer - VZ-200. 

Dick Smith colour computer. 

DISE VAZE 2/0107 

Vz 20/0) - 

DSE's personal colour computer. 
(Harrison) 

The- V1=200: Colour, graphics апа sound. 
(Vernon) 

Timing the Laser's phazer. (Stokes) 
Laser. 

Dick Smith VZ200: good value. 
(Fullerton) 

Cash апа Carry Computers Benl) 
Review of VZ-200 and РР40. 

4 20/0) c 

Texet TX8000. 

The Laser 200. 

Laser 200. 

A look at the Laser. (Green) 

Шие Басекн a Shoe ûn “әле” аат кк 
VZ=200. (ARL) 

Laser PP40 Printer/Plotter. 

Laser 200. (Green) 

Buying your first computer. (Vernon) 
An important role for small computers. 
(Williams) 

Honmeumu'cesoNsnpeitesi- BE. 3 (Bonington) 
Home micro supertest. Pt. 4 (Bollington) 
VZ-200 as a WP (DSE E&F tape WP). 
(Williams) 

Review of video games consoles. 

Back to the У2-200. (Williams) 

Dick Smith's new VZ-300. (Rowe) 

WP on the new VZ-300. (Williams) 

How to buy a micro - VZ-300 compared. 
Computers fon the Rest Of US. (Robests ) 
Letter. (Kennedy) 

МАЕ ЗОО (Ta ы шен) 

VZ-300 
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GENERAL PROGRAMMING 


APE. 81 
Jun. 81 
ЖОШ a 81 
Feb. 82 
Mar. 82 
Apr. 82 
May 82 
Jun. 82 
OM 82 
бер. 82 
Моу. 82 
Пес. 82 
Jan/Feb83 
Mar. 83 
Aug. 83 
oct? 83 
Nov. 83 
Feb. 84 
Apr. 84 
Nov. 82 
Сап. 83 
Mar. 84 
Apr. 84 
May 84 
SIS 84 
ww, 84 
Aug. 84 
Sep. 84 
Jan. 85 
Feb. 85 
Mar. 85 
INDIE c 85 
@c 85 
JUN. 85 
Jun. 85 
Oet: 85 
Max, 86 


1L 7/0) 1L т 
S175 
KO) ais 
17218 
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Extra 280 opcodes. (9) 

Моге uncovering 780. (Dennis) (1) 

280 uncovered. (Garland) (-) 

280 CPU reference card (2) 

Understanding Assembler (Bell) Part I (3) 

(8080) Pare TI (4) 

" Ç " Part III @) 

2 y 5 Part ту (3) 

" " d Part V (е 

B Ü x Pare VI (9 

, : Part VII (3) 

" a Part VITI (2: 

9 П h Part IX (4) 

ii i i Part X (4) 

Н Ш s Pause ex (2) 

ii " d Part XII (6) 

" ii s РАЛЕ XULE (27 

й | 2 Part XIV (099) 

|! Ч Н Part XV (27 

ш У Ü BAF E SVL (925) 

PE Micro-file #1 - 8080 & 8085 (Coles) (659) 

PE Micro-file #3 - 780. (Coles) (5) 

Teach yourself assembler Pt. 1 (Overaa) (669) 

(8060, 780 6502) Pt. 2 (Overaa) 5) 

Ë " Pt. 3 (Overaa) (5) 

" Ш Pt. 4 (Overaa) (650) 

р i Pt. 5 (Overaa) (25?) 

Ш " Pt. 6 (Overaa) C5) 

" y Pt. 7 (Overaa) (4) 

Sort at input. - (Ithell) (СШ) 
The basic art - algorithms, structures. 

(Liardet) (4) 

Pick a number - arithmetic. (Liardet) (59) 

It takes all sorts - sorting. (Liardet) R5» 


The Art of Programming - Progress. 
(Hjaltson) 

Comment on binary search. (Lamich) 
Comment on distribution sort. (Riordon) 
Sorting out the sorts. (Jankowski) 

280 
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AEM Australian Electronics Monthly ЕТІ Electronics Today 
AHC Australian Home Computers International 
APC Australian Personal Computer M80 Micro-80 
APH Australian Photography 

AR Amateur Radio 
ARA Amateur Radio Action 

BB Bits and Bytes (NZ) 

i JERE SENS IM (N2) 


BYC Bumper Book of Programs by YC MC Micro Choice (UK) 

CBA CB ACTiON 

CC Creative Computing (US) PCG Personal Computer Games 
CFG Computer Fun and Games PCN Personal Computer News (UK) 
CI Computer Input (М2) BE Practical Electronics (UR) 
CLC Classroom Computing SEN Sync (US) 

(Op . Gre mpu cing Today (UR) WM Which Micro (UK) 
CHO Choice ҮС Your Computer 

EA Electronics Australia YCU T YoUr КС Єшрї ECE (UK) 


FURTHER LITERATURE RELATING TO THE У2200/300 COMPUTER 


As an extension to my list of magazine articles, I have produced the 
following last ОЕ BOOKS (СІ пате сорте or all GE they publications). whic 
books relate to the VZ computer specifically, Microsoft BASIC Level II or 
the Z-80 microprocessors, as used in the VZ200/300. Additionally, I hold 
а Let ota ena ise hrs eai medio maion ROM listings, Users. Group 
newsletters, software etc. 


TECHNICAL BULLETINS FOR VZ COMPUTERS 


% 88 Printing out System-80 screen graphics. ( 
# 91 Programming the VZ-200 computer's joysticks. ( 
4 92 Finding where variables are stored by the VZ-200's BASIC. ( 
% 93 Problems with the X-7208 printer/plotter and Microsoft BASIC.( 
# 94 Using the Х-3245 TP-40 printer/plotter with the VZ-200 

& System-80. 
% 98 Printing lower case and control characters оп the У2200/300. 
#111 VZ-300 Mailing List tape to disk file conversions. 
#114. Obtaiñing Geolenr'om the V2300. 
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A BEGINNER < 
PROGRAM CONVERSION 


This month Surya provides some direction for those-trying to get to grips with 


GUIDE TO 


program conversion. Next month, hours upon hours of blood, sweat and tears will come 
to fruition in the presentation of APC's Basic Program Converter Chart. 
It's a compilation of the Basic keywords of popular micros set out to enable equivalent words 


When you've just picked up your copy of 
APC and spotted a nice little cassette- 
based database for the TRS-80 it's very 
tempting to sit down in front of your VIC 
20 and start tapping away, altering lines 
as you go and hoping that it will run 
when you've finished it. Unfortunately, 
while you can sometimes get away with 
this on very short programs, anything 
longer than twenty or thirty lines and you 
quickly find yourself in a mess. The first 
rule of program conversion is stop and 
think! This brief article is not a definitive 
guide to program conversion. ^bit it 
should give a few pointers to those 
relatively new to the game. 


So where do you start? Well, first of all 
think about whether a conversion is 
really the best approach to the problem. 
Although modifying an existing listing 
may sound easier than writing the pro- 
gram from scratch, this is not always the 
case. In choosing between a conversion 
and a complete rewrite, there are a 
number of factors to be considered: 


(а) The compatibility of the machines. 
ome machines support very similar 
dialects of Basic: the TRS-80 and the 
System 80 for example. In a number of 
cases, the program may require only a 
few minor changes here and there to 
enable it to run on a similar machine. 
You may even find that no changes at all 
are needed. 

Other machines, however, are almost 
entirely incompatible. Converting from a 
Commodore machine, for example, with 
its cursor-control statements embedded 
in the text, can be a real pain. Equally, 
converting from a powerful machine to a 
lesser beast may cause problems: a Basic 
with  recursively-defined procedures 
(procedures within procedures) and 
REPEAT-UNTIL loops can be very 
difficult to rewrite efficiently for a 
machine which doesn't support a 
structured Basic. 

Although converting from a simple 
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in your micro's dialect of Basic to be used in their place. 


machine to a more sophisticated one is 
generally easier than the other way 
around, you will be sacrificing the 
features for which you bought the 
machine. Any ZX81 listing will run on а 
Spectrum, but then what's the point of 
having a Spectrum? 


(b) Sound and graphics. 

However compatible machines may be in 
other respects, they usually bear not the 
slightest resemblance where sound 
control and graphics resolution are 
concerned. Where a program relies 
heavily on these features, therefore, 
rewriting the program from scratch 
‘would probably be easier than 
attempting to modify it. 

(c) Machine-code, assembler, PEEKs and 
POKEs. 


Any program relying heavily on 
machine-code or assembler, or where a 
significant amount of PEEKing and 
POKEing is-done, will be extremely 
difficult — if not impossible — to modify 
for a different machine. Anyone who 
knows enough about low-level program- 
mingto do the job would almost certainly 
be able to write their own routines in a 
fraction of the time taken to convert 
someone else's. 


(9 The structure of ће program. 
must confess a sneaking sympathy for 
the view that 'all that matters is that it 
works’. When I'm writing ordinary day- 
to-day programs for use around the office 
or whatever, my programs are neither 
elegant not structured. Having publicly 
owned up to this fatal flaw in my 
otherwise perfect character, I am now 
going to sing the praises of structured or 
modular programming. 

Structured programming is the art of 
assigning each component function of 
the program a routine of itsown. Take the 
example of a simple database. there 
would be one routine to display the 
menu, another to accept input another to 
sort data, yet another to output data toa 


' of z 


printer. and so forth. Each routine. or 
module is entirely independent of any 
other. being called by a central `control` 
module. You could. for example. remove 
the printout routine simply by deleting a 
solid chunk of code and deleting the 
option from the menu. The rest of the 
program would be totally unaffected. 

A well-structured program is not only 
easy to read and edit is also lends itself to 
modification for a different machine. If 
(say)the bar-chartsection cannot beused 
on your machine because of the difference 
in screen-addressing. you can simply 
replace it with your own routine without 
necessitating all kinds of changes in 
other sections of the program. 

If a program is very badly structured, it 
is often easier to write your program 
rather than wading through GOTOs, 
attempting to follow a logical path which 
jumps in and out of loops and so on, and 
altering one part of the program may 
have unforeseen effects in a completely 
different part. 


(e) The program as a whole. 

Does it do exactly what youd like it to, or 
merely approximately what you want? 
There's little point in modifying an 
exciting program if you're then going to 
have to spend a lot more time on it in 
order to get it to do something else. 

Do you understand the way the 
program works? If you don't, then not 
only are your chances of carrying out a 
successful modification pretty slim, but 
the program may not do what you 
thought it would even if you succeed! 

By this stage, then. you should have 
decided whether you're going to modify 
the program as it stands, or write a 
completely new program of your own to 
do the job. If you decide on the latter, it 
doesn't necessarily put you right back at 
square one. The general structure of the 
program may provide a good starting- 
point and you may also be able to 
incorporate some of the routines into 
your own program. Treat the original 


T having happened in between. OK its an 

A BEGINNER S GUIDE TO extreme example. but there аге some 
funny people about... 

Anyway. next on the agenda is to go 

R RA CONVERSION through the listing making note of 


anything which looks slightly, rather 

program as a source of ideas and dont jump up and down about than totally out of place in your 
techniques, but don't be limited by it. Commodore screen-handling) Bear in ^ machine's Basic. You'll find that most of 
Let's say you've decided on a conver- mind that you don't have to duplicate the Һе changes will be fairly obvious even if 
sion. ГЇЇ identify the sections likely to original screen exactly — or even you've never seen some of the keywords 
cause problems. PEEKs and POKEsare approximately — for menus and so оп. before. Most people would guess that 
an obvious place to start The author Generally, the only time when you need HOME is the same as CLS. for example. 
should have added REMark statements to recreate the screen faithfully is during Next month. APC will publish its Basic 
telling you what they do, and you need games where the graphics are vital. The | Converter Chart (which has been по 
only figure out how to achieve the same difficulty of adapting such programs has mean feat to produce) which should help 


effect on your own machine. If not, then already been mentioned. you sort out the stranger idiosyncracies of 
you're into the business of getting hold of By now, you will probably have come some machines. 
the host machine (that is, the machine across several sections of code that If you're converting to a less powerful 
the program was written for) and trying appear totally alien to the version of Basic then you may have to work at 
out anything you're not sure of. Basic supported by your machine. Іп simulating some of the more sophis- 


Next to look for is the screen displays: these cases you must work out exactly — ticated features. FOR-NEXT loops come 
mainly graphics and PRINT АТ  whatishappening, when, where, why and іп very handy to simulate functions such 
statements. These will probably have to how. Once you've done that (he says as INSTR$, STRINGS and so on. 
be completely rewritten. Work outwhatis lightly) it should be a straightforward And this is the point where you start 
happening — what is being plotted and matter to replace the offending code with hammering away at the keyboard! 
where messages appear on the screen. your own routine. This is when you find Provided you've done all the above 
This can sometimes be tricky. out just how structured the program thoroughly, a combination of the АРС 
particularly where those quaint really is. once followed a series of about Basic Converter Chart and good old- 
Commodore control-codes are con- nine GOTOs, thefinaloneendingonthe fashioned trial-and-error should see you 
cerned (you may have gathered that I line following the first one with nothing — through! 
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AS practi ; 
° ° E n Жр ; 
Beginn e r S ti S| i 'nces, consider the open FILE$ Yes, you are quite correct | 
p ollowing two examples: first, repeat When converting from a while- 
On reading the October issue à e throw a die until readline (А5) wend to a repeat-until loop it is 
of АРС, I noticed that Surya | re mae Town: print A$ Sometimes necessary to insert | 
made a very common error | DIE:= d until eof d sss | 
in his `Beginner's guide to БИП. ae 6) А close FILES somewhat defeats the point of | 
program conversion. He until DIE=6 TOW a', DIE Whereas the first form the loop! It is, however, usually 
States that (repeatuntil and | This can be written ` correctly detects, when the 2055/6 to make the initial test 
ГЕН чы, written as de rr file is empty, that eof is true before entering the loop, thus 
ile-endwhile) . . . are two e at convoluted ‘while’: initially — and so retaining some degree of 
forms of the same loop, one :=0 (indeed, any number immediately closes the file, | *Fucture Thus: 
being the logical reverse of that isn't six) `! the second form attempts to | OPEN FILES:IF NOT OF 
the other.’ | while DIE< >6 read a line of text from ће ГЕМ PROC readfile ELSE 
There is one essential DIE:=rnd (1 to 6) empty file — thus crashing | CLOSE FILES. .. 
difference between while print “You throw a’ DIE the program. 8 | DEFPROC readfile 
<cond> and repeat endwhile Therefore, to summarise REPEAT 


| 


<block> <block> endwhile (although no-one but an any repeat-until may be RESDLINE (48) 
PRINT А8 


until not («cond») idiot would use this if they repla i i UNTI 
The "while fam checks had repeat-until available). Б. aT ША d 
the condition first. If it's Second, consider a routine clarity, but the converse is | CLOSE FILES 
false, then «block» js Deb vd P pd Sequential file: not true — attempting to и c DRM. However, uide 
uu men ie = open FILES о ае лы, wholeheartedly that а truly 
¿repeat оса ot (eof) endwhile to a repeat-until Pda eed susan shana 
causes at least one execution readline (A$) does not usually work. M Шу, 
of «block», even if the Е ee мых 
condition is initially false, endwhile а. i 
Wherever a ‘repeat-until’ is 8 ETERS 
used, it may, if desired bc (eof is a boolean (true or 
replaced by a "while- false) function indicating А PG Tan 44 0) 
endwhile with inverted whether or not the End Of 
condition (although there are File marker has been E 
Several cases where а "repeat- encountered. Any attempt to 
until is more natural — read a line of text when eof 
Which is precisely why any is true will probably crash 
decent structured language the routine). Using the 
provides both construc ts) Surya-style conversion, we 
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PART 2:SIMULATING STATEMENTS 


Lastmonth Suryalookedat the factors to consider when choosing between aprogram conversion and а 
completerewrite. Here heassumes thata conversionis appropriate and analyses the procedure in detail. 


The initial steps to be taken when 
converting a program from one dialect of 
Basic to another are much the same as 
when coding from scratch and just as much 
discipline is required. The starting point in 
either case is to have a clear understanding 
of what you’re setting out toachieve. Make 
sure you can follow the logic of the 
program before you attempt to modify it. 
Spend a little time working out why the 
author has done things in that particular 
way. All this may seem unnecessary at 
first, but it’s time well spent: the greater 
your understanding of the program, the 
easier the conversion will be. 

Once you're satisfied that you have a 
clear overview of the program as a whole, 
you can look at each section in detail. 
Break the program down into its compo- 
nent subroutines. This is only possible with 
a reasonably structured program, but as 
mentioned last month, programs with poor 
or non-existent structuring are best left 
alone. 

When examining each routine, take a 
special look at the variables. Determine 
which are global and which are local. 
Global variables are those used through- 
out the program. Typical global variables 
include scores in games, some counters, 
printer-settings and so on. Local variables 
are those whose values are used only within 
a given subroutine: once the routine has 
been exited, the values are no longer 
required and the variables may be used for 
adifferent purpose within anotherroutine. 
Typical local variables are counters in 
FOR-NEXT loops and flags used to check 
validity of data. 

The reason you need to distinguish 
between the two is that local variables may 
be freely changed or discarded as appropri- 
ate, but global variables need to be treated 
witha great deal of care— the program asa 
whole is dependent upon them. If you’re 
lucky, the programmer will have gone to 
the trouble of listing all global variables in 
remarks at the beginning of the program, 
and used fixed local variables so that, for 
example, wis always a FOR-NEXT loop 
counter. Failing that, there are utility 
programs available that will locate vari- 
ables for you. 


Coding 


(Note: in the examples given below, I am 
using A$ to represent any string variable 


and 100 onwards whenever line numbers 
are required. These choices are purely 
arbitrary and have no significance.) 

During the process of converting a 

program from one machine to another, 
you will very often come across a keyword 
in the original program for which your 
machine has no equivalent. While experi- 
enced programmers will soon find a way 
round the problem, those a little newer to 
the game may find themselves stuck for a 
solution. What I have done belowistolook 
at some of the common offending state- 
ments and methods of achieving the same 
effect using standard Microsoft. The 
keywords covered are not in any particular 
order. 
INKEYS$: This statement is an almost 
statutory presence in just about every 
Basic program ever written. This state- 
ment tells the computer to scan the 
keyboard to test for a key depression and 
place the result into a specified variable. 
The standard format is AS=INKEY$; the 
most common variations are A$=GET$ 
GET$- АЗ and GET A$. 

The statement takes one of two forms. 
On most machines, the processor will carry 
outasinglesweep ofthe keyboard: if a key is 
pressed during this scan, the value of the 
key pressed will be placed into the variable 
AS. If no key is pressed, A$ will be null 
(empty). On some machines, however. the 
computer will carry out a continual series 
of sweeps until a key-press is detected. A 
few machines offer both forms. 

A continuous scan using the former 
version of INKEYS is straightforward: 
100 AS-INKEYS:IF A$="" THEN 
СОТО100. The BBC, however. goes а 
step further in offering a timed keyboard 
scan in the form AS-INKEY3$(time), 
where time is given іп 100ths of a second. 
To simulate this using the standard 
INKEYS statement, we use a FOR-NEXT 
loop thus: 100 FOR А-0 TO 
(value) AS-INKEYS:NEXT. The value 
ofthe variable will need to be adjusted to 
suit Since different machines have 
different processing speeds, you'll haveto 
experiment with different values to 
establish some kind of relationship 
between the value of the FOR-NEXT 
counter and real time. 

Of course, the example given above 
would return the final key pressed if there 
were two or more key depressions during 
thescan period, butthisiseasily overcome: 


100 ҒІ.АС-0:А%-“” 

110 FOR A=0 TO (value) 

120 BS=INKEY$:IF NOT В$=“” AND 
FLAG=0THEN A$=B$:FLAG=1 

130 NEXT 

The value of the first key depression is 
now stored in А$. If no key was pressed, 
then A$ will be empty. 

INSTR: This statement is used to search 

onestring to find out whether it contains a 

second string. The format is INSTR(main 

string, sub-string) where the starting 

position of the sub-string isreturnedon a 

successful match and 0 is returned if the 

search fails. INSTR(APC","P") would 
return 2 while INSTR('APC","X") would 

return 0. 

We might, for example, want to find out 
whether NAMES contains the sub-string 
'Rev.. Using INSTR. we would do this 
like so: 

100 IF NOT(INSTR(NAMES."Rev.") 
—0) THEN PRINT NAMES;" is a 
priest” 

To simulate this in standard Microsoft, 
we use MIDS. In the above example, we 
would do so thus: 

100 FLAG=0:FOR 
(LEN(NAMES)-4 

110 IF MIDS$(NAMESA,4)="Rev.” 
THEN FLAG-7I 

120 NEXT 

130 IF FLAG=! THEN PRINT 
МАМЕ$'“ a priest" 

Note that on an Atari, line 110 would 
read as follows: 

110 IF NAMES(A,4)=“Rev.” 
FLAG=! 

and on a Sinclair machine, it would read: 

110 IF NAMES(A TO A+4)="“Rev.” 
THEN FLAG=1 

These differences are due to the non- 
standard forms of MIDS supported by 
these machines. The original example 
should work on all other dialects of Basic. 
PROCEDURES AND FUNCTIONS: 
User-definable tunctions are supported in 
varying degrees of sophistication by a 
number of machines Procedures and 
functions make programs infinitely neater 
and more readable, but they dont actually 
achieve anything which cannot be 
duplicated using ordinary sub-routines. 

Some dialects of Basic will allow you to 
GOTO or GOSUB a variable which 
greatly aids readability — the Basic 
Converter Chart will tell you which 
machines do if you look under GOTO. 


A=] TO 


THEN 
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REPEAT-UNTIL and WHILE-WEND. 
These are two forms of the same control 
loop, one being the logical reverse of the 
other. WHILE-WEND checks that a given 
expression is true and then executes all 
statements up to the first WEND state- 
ment encountered. The computer then 
returns to the original condition to check 
whether it is still true. If the condition is 
false, the statement following the WEND 
statement is executed. 


For example: 

100 REM — Silly example 

110 X210 

120 WHILE Х>0 

130PRINT “The current value of X 
=“ X;”.” 

140 X=X-1:WEND 

150 REM — Xisnowzero andthe WHILE 
test fails 


In a WHILE-WEND loop, the loop is 
repeated while the test expression is true. 
A REPEAT-UNTIL loop works the other 
way around. АП statements between 
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REPEAT and UNTIL are executed until 

the test expression is true. Thus the above 

example would be written: 

100 REM — Same sillv example 

110 X210 

120 REPEAT 

130 PRINT “The current value of X 
=“ X > 

140 X=X-1:UNTIL X=0 

150 REM — X is now zero and the 
КЕРЕАТ test is satisfied 


Converting from one structure «b the 
other is thus straightforward. But the 
majority of present-day Basics offer neither 
of the above. To create the same effect, we 
have fo use a statement that causes 
purists to gasp in horror and head 
straight for the reassurance of their 
micro: the СОТО. 


Thus: 

100 REM — Here we go again 

110 X=10 

120 PRINT “The current value of X 
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130 IFX>0 THEN X=X-—1:GOT0120 
140 REM - Xisnowzero and the test fails 


While somewhat less elegant, the net 
result is the same. We can see that 
rewriting a WHILE-WEND or REPEAT- 
UNTIL structure is simply a matter of 
manually inserting the test (using IF- 
THEN) and pointer (GOTO). 

STRINGS is a statement which ailows you 
to repeat a given sequence of characters. 
The format is STRING$(number of times 
to print string,string). If you wanted to 
printalineofasterisksacrossan80-column 
screen, for example, you would state: 
STRING$(80,**"). If your machine 
doesn'tsupportthisstatement,then we fall 
back once again on the ever ready 
FOR-NEXT loop. Thus: FOR А-1 ТО 
80:PRINT“*”;:NEXT, the string is simply 
duplicated, and the numeric argument 
placed in the FOR-NEXT loop. 

TAB. This is supported by most machines. 


Next month: Graphics and sound 
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BASIC 
CONVERTER CHART 


One day, all computers will understand the same 
language (and read each others’ disks and address the 
screen in the same way and... ). To tide you through 
until this great day arrives, however, we set out to 
beg, steal or even buy eleven of the most popular 
home micros to produce this APC Basic Converter 
Chart. 

Whether you re trying to convert that amazing 
Atari game to run on your Apple, have just spent the 
past three hours wondering why your new 
Commodore 64 micro doesn’t seem to give the right 
answer to a FRE statement or simply want to write 
programs which can be easily converted to other 
micros, the APC Basic Converter Chart is here to 
help. ' 

It isn't possible, of course, to cover every micro nor 
every command supported by each of the machines 
included — much as we'd like to. Also, since different 
micros have an annoying tendency to use the same 
keyword to perform slightly — or totally — different 
functions, converting from one machine to another 
will require some rewiting beyond simply changing 
the syntax. What this chart aims to do, however, is 
provide you with an at-a-glance syntax comparison 
using Microsoft Basic as the standard. The chart won't 
convert programs for you, but it should save you the 
trouble of wading through masses of manuals written 
by authors who have apparently not yet heard about 
alphabetical indexing. 

Dve to the limited amount of information we can 
squeeze into each box, it hasn't always been possible 
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to indicate the full power of every command or 
statement. Most LIST statements, for example, allow 
you to list the whole program, list a specified line, list 
all lines within a given range, list all lines up to a 
specified line or list from a specified line. Fiddling 
around with brackets in an attempt to represent each 
of these possibilities would lead to a totally 
incomprehensible entry. It should be assumed, 
therefore, that we re dealing with the most common 
use of each statement here and that other uses may be 
available. 

Something to be aware of is that identical syntax 
may have very different effects on different machines. 
SYSTEM on a TRS-80 will transfer program control to 
a machine language routine while in Microsoft Basic 
closes files prior to returning to the operating 
system. 

You will notice that we haven't included anything 
on sound and graphics; with most of today’s micros 
offering both high-resolution graphics and fairly 
sophisticated sound control, this area would require a 
chart of its own. APC will be looking at sound and 
colour in a later issue. 


The abbreviations used in the chart are as 
follows: 


addr = address, exp = expression, 

sub = subscript, stmt = statement, 

var = variable, 

Square bracket [ ] indicates optional code. 
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| STANDARD АТН P 
MICROSOFT 
Arctangent of 
| ing. | expression. 
АТМ exp) CHRS(exp) АҒАҢ exp. CONT COS(exp) 
| ASC string) CHRS(exp) CONT COS(exp) 
APPLESOFT 
CONT COS{ exp) 
| ATARI š i 
! 
ABS( exp) ineno. ЕТЕ 
| BBC MICRO | 
ABS( exp) ASC| string) ATN eos) SYS(addr) CHRS(exp) CLA exp) CLOSE feno | CONT Оер} | 
| COMMODORE 64 | 
2 | 
>a BS rek op) COS reel ex; 
MICROBEE 
| | 
ABS{ exp) COS(ex) 
PET 
ABS( exp) COS{exp) 
| TRS-80/SYSTEM 80 
ABS| exp) COS{ mq) 
| МС-20 
| АВ exp) Slow) 
۷2200 
ABS( exp) Sop) 
1Х81 
ABS[eg) созақ) | 
| 
ZX SPECIRUM | 


rage 90 Australian Personal Computer 


Nw 33 4(1) Sq -a5 2 ot 7. 


RDS & FORMATS | 


Í DATA 


sts data о be 
, used in a READ 
statement 


DATA const 
сөй... | 


DATA CONST 
[.const . . .] 


e DATA ex (op 
("exp") 


DEF FNvar [(var. 
var)) 2 xp 


DIM Var sub) 
[.var{sub) . . .] 


DIM var sub) 
[varsub) . . .] 


DIM var{ sub) 
[.ver(sub) . . .] 


[cursor editing] 


END 


FOR ver x exp TO 
e [STEP sx] 


FOR ver x ep TO 
tx [STEP ex] 


FOR ver a exp TO 
e [STEP exp 


FRE( exp) Be GET [#] Be] GOSUB ineno 
no [.record no] 


FRE(exp)Now: 
юр is a дитту 
variable 


HIMEM-TOP 


FRE(exp) Note 
ори a dummy 
variable 


IF/THEN/ELSE 


Yop ic wa sont 
в conver. Kf not 
BSE or бір 
LEX - 


F wp THEN зэм 
[ELSE stm) 


GOTO fren К exp THEN stmt 
Note: no ELSE 
GOTO блега/ É exp THEN жж 
var/exp Note no ELSE 
GOTO inen/ Е exp THEN simt 
мер [ELSE stmt) 
GOTO Блепо F exp THEN sent 
Note: no ELSE 
GOTO ineno F op THEN sont 
(ELSE stm) 
GOTO krero F op THEN zat 
Мак по ELSE 
6070 foes F юр THEN sot 
[ELSE зом) 
6070 Beno F exp THEN st 
Na no ELSE 
F op TEN zt 
бео [ELSE mat 
[Wem 


GOTO UNENO | IF op THEN sims 
Note ao ELSE 
F еф THEN ш 
Mor no ELSE 
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STANDARD 
MICROSOFT 


MACHINE ае ыд eM кт, сама има», 


~ 


INPUT[STRING.] LEFTS (string) 


APPLESOFT кия) oni 


[depends on | ШАП FLENAME | LOG{exp) MIDS| string, 
ape жәй зет) 


usually UST’) 


INPUT [exp] var à LEN( string) . ибт ер" anan [Be [Обехр) ялдап 
АТАВ! (ш.ш | i (net) 

INPUT [exp] р 

string-vor Бе 


BBC MICRO 


MIDS| string, 
жад eogi) 


LEFTS( string, 
length) 


LEN( string) 


MIDS! string, 
star(,length]) 


GET var INPUT [string;] | INT(exp) LEFTS{ string, 
COMMODORE 64 ME =" 
KEY INT(sal-sxp) var;i, length) | LEN(string) ineno. ve; mm-1),. 
MICROBEE s * т=п зе 
m-i 


GET var INPUT [STRING, LEN( string) A: & MIOS{ string, 
РЕТ ver |ум...] H тэ length}) 


MIDS| sting. 
start length] 


WKEYS INPUT [string] LEFTS{ string, 


| TRS-80/SYSTEM 80 ми [var . . .] length) 


LEN (string) [LET] var < exp LOG (em) MIDS (string. 
start. [.len]) 
sting(TO finish) | LEN( string) LUST (ineno) LOAD LN ew) sting start TÜ 
"fiam "] fish) 
NPUT [sting] string (TO fnish) | LEN string) UT vers еф LUST (ілес) | LOAD Same" |е) sr sərt TÜ 
ZX SPECTRUM [con] яак =з 
SR 
ашта ku dmi 
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ON/GOSUB |ON/GOTO |OPEN 
А : Š 
: : Oyen disk fe. port 
faro “frere” 


PRINT ([ #] 
бо) [xp] 
(өф.. 1) 


0N ERROR 
GOTO ineno 


On exp GOSUB 
ineno 
[ineno . . .] 


Ün exp 6070 
lineno 
[боео . . .] 


ONERR GOTO 


NEXT var TRAP lineno/ 


| NEW Note under] NEXT [var, ON ERROR stmt 
8 


OPEN 1,8,15, ON эхр 60$0В PEEK( add r) 
"RO. fararo- ineno BYTE 
fianame” [disk [,йпепо . . .] 

only] 


READ ((lineno. )) 
var, var) 


ON exp GOSUB PEEK(address) [POKE address, 


(еі, exo) апо 


POKE addr, byte 


[dmperds on OS; | OUT Port byte POKE addr, byte 
consult OS 

manual. | 

OPEN exp fena PEEK( adds) POXE addr, byte 
mode, “suma” 

x ' š WEB M 


Consult OUT postby | PEEK( addr) 
| Microdrive 
\ manual 
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STANDARD 
MICROSOFT 


| MACHINE 


| APPLESOFT at 
| RESTORE [irano] sting stat) МӘ | RNO(exp) Note: SIN(exp) 
. not strictly op is a dummy 
ATARI қылма | абе 
RENUMBER — |RESTORE[aQ) RIGHTS string. SIN(exp) 
[star] length) 
BBC MICRO [intr 3 
REM text RESTORE RETURN RIGHTS(string | RND(exp) RUN [ео] | SAVE (“fie — | SSN[exp) СУГЕ) j 
length) rams [cass] о қ 
COMMODORE 64 zi | 
SIN[rsal-exp) 
| MICROBEE "n 
» 
SIN(exp) 
| PET 
| SIN em) 
i [cass] o; SAVE 
TRS-80/SYSTEM 80 "Басат" [disk 
SIN am 
VIC-20 
SIN(exp) 
۷2200 | 
SIN(em) 
| ZX81 
SIN(exp) 
| ZX SPECTRUM 
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сок STOP STRINGS [578$ SYSTEM | TAN TROFF TRON 
иште a sarg of | Converts a 
Stop program i En | Close йм for Tangent of 
, | >am root of rt > mam сайт | expression in 5 
pasan 1 А ing. system. ndan Treca ofi. Таса on 
Й MIS T 


USR(psrametar) 


WHAE/WEND | WIDTH 


1R[exp) 


i | SOR(exp) STOP 
| 
ЕЛДЕ 


USR( paremeter) | МАЦ string) 


PLAY 0, int 
(1(ію255; 1 - 
1/8 second) 


14 rep < 16 


E JE E re Ж 
| 
i 
SüR(exp) STRINGS length, | STRS(exp) SYSTEM pus | ТАМ exp) VAL sting) 
| string) code following 
prompt Note: 
not equivalent 


1 saR[eə) STOP STRS( exp) ТАМ exp) |$В(рагатеэ} | МАЦ sting) WAIT addr, 
STRS( кр) 


STRS(exp) PAUSE no. of 
tomas 
(50/ second) 
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A BEGINNER'S GUIDE TO PROGRAM CONVERSION 
PART 2:SIMULATING STATEMENTS 


In the October issue of APC Surya looked at the factors to consider when choosing between a program 
conversion and a complete rewrite. In the November issue he followed that up with the Basic Converter Chart 
and now he continues the series on the conversion of one Basic dialect to another with the assumption 
that a conversion is appropriate and analyses the procedure in detail. 

Next month Surya will continue with a look at graphics and sound conversion. 


The initial steps to be taken when 
converting a program from one dialect of 
Basic to another are much the same as 
when coding from scratch and just as 
much discipline is required. The starting 
point in either case is to have a clear 
understanding of what you're setting out 
to achieve. Make sure you can follow the 
logic of the program before you attempt 
to modify it. Spend a little time working 
out why the author has done things in 
that particular way. All this may seem 
unnecessary at first but its time well 


spent: the greater your understanding of 


the program. the easier the conversion 
will be. 

Once you're satisfied that you have a 
clear overview of the program as a whole. 
you can look at each section in detail. 
Break the program down into its 
component subroutines. This is only 
possible with a reasonably structured 
program. but as mentioned in the 
October issue. programs with poor or 
non-existent structuring are best left 
alone. 

When examining each routine, take a 
special look at the variables. Determine 
which are global and which are local. 
Global variables are those used 
throughout the program. Typical global 
variables include scores in games. some 
counters, printer-settings and so on. 
Local variables are those whose values 
are used onlv within a given subroutine: 
once the routine has been exited. the 
values are no longer required and the 
variables may be used for a different 
purpose within another routine. Typical 
local variables are counters in FOR- 
NEXT loops and flags used to check 
validity of data. 

The reason you need to distinguish 
between the two is that local variables 
may be freely changed or discarded as 
appropriate. but global variables need to 
be treated with a great deal of care — the 
program as a whole is dependent upon 


them. If you're lucky. the programmer 


will have gone to the trouble of listing all 
global variables in remarks at the 
beginning ofthe program. and used fixed 
local variables so that. for example. w is 
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always а ҒОК-МЕХТ loop counter. 
Failing that there are utility programs 
available that will locate variables for 
you. 


° 
Coding 
(Note: in the examples given below, I am 
using A$ to represent any string variable 
and 100 onwards whenever line numbers 
are required. These choices are purely 
arbitrary and have no significance.) 

During the process of converting a 

program from one machine to another, 
you will very often come across a keyword 
in the original program for which your 
machine has no equivalent. While experi- 
enced programmers will soon find a way 
round the problem. those a little newer to 
the game may find themselves stuck for a 
solution. WhatIhave donebelowistolook 
at some of the common offending state- 
ments and methods of achieving the same 
effect using standard Microsoft. The 
keywords covered are notin any particular 
order. 
INKEYS: This statement is ап almost 
statutory presence in just about every 
Basic program ever written. This state- 
ment tells the computer to scan the 
keyboard to test for a key depression and 
place the result into a specified variable. 
The standard format is А$=ІМКЕҮ$; the 
most common variations are A$= GET$, 
GET$- A$ and GET A$. 

The statement takes one of two forms. 
Onmost machines, the processorwill carry 
out asinglesweep of the keyboard: ifa key 
is pressed during this scan, the value ofthe 
key pressed will be placedinto the variable 
A$. If no key is pressed, A$ will be null 
(empty). Onsome machines, however, the 
computer will carry out a continual series 
of sweeps until a key-press is detected. A 
few machines otter both forms. 

A continuous scan using the former 
version of inkey$ is straightforward: 
100 A$=INKEYS:IF A$="" THEN 
СОТО100. The BBC. however. goes a 
step further in offering a timed keyboard 
scan in the form AS-INKEYS(time). 
where time is given in 100ths of a second. 


lof 2, 


To simulate this using the standard 
INKEYS statement, we use a FOR-NEXT 
loop thus: 100 FOR А-0 TO 
(value): AS=INKEY$:NEXT. The value 
of the variable will need to be adjusted to 
suit. Since different machines have diffe. 
rent processing speeds, you'll have to 
experiment with different values to estab- 
lish some kind of relationship between the | 
value of the FOR-NEXT counter and real 

time. | 

Of course, the example given above 
would return the final key pressed if there 
were two or more key depressions during | 
thescan period, butthisiseasily overcome: |! 
100 FLAG=0:A$=""" 

110 FOR A=0 TO (value) 
120 BS=INKEY$:IF NOT В%-“” AND | 

FLAG=0 THEN A$=B$:FLAG=1 | 
130 NEXT | 

Тһе value of the first key depression 15 | 
now stored in A$. If no key was pressed, | 
then A$ will be empty. 
INSTR: This statement is used to search | 
one string to find out whether it contains a |! 
second string. The format is INSTR(main 
string, rd where the starting 
position of the sub-string is returned on a 
successful match and 0 is returned if the 
search fails. INSTR(CAPC"."C") would 
return 2 while INSTR(`APC”U X") would 
return 0. 

We might, for example, wantto findout 
whether NAMES contains the sub-string 
*Rev.. Using INSTR. we would do this 
like so: 
100IF | NOT(INSTR(NAMES."Rev.") 

=0) THEN PRINT NAMES;" is a 
vicar." 

To simulate this in standard Microsoft. 
we use MIDS. In the above example, we 
would do so thus: 

100 FLAG=0:FOR 
(LEN(NAMES)- 4) 

110 IF МІРҘ(МАМЕЗ,А 4) =“Кеу.” 
THENFLAG=1 

120 NEXT 

130 IF FLAG=1 THEN 
NAMES: is a priest.” 

Note that on an Atari, line 110 would 
read as follows: 

110 IF NAMES(A,4)-"Rev." 
FLAG=1 


A=] TO 


PRINT 


THEN 


andona Sinclair machine. it would read: 

110 IF МАМЕ$ (А TO А44)-“Кеу. 
THEN FLAG=1 

These differences are due to the non- 
standard forms of MIDS supported by 
these machines. The original example 
should work on all other dialects of Basic. 
PROCEDURES AND FUNCTIONS: 
User-definable functions are supported in 
varying degrees of sophistication by a 
number of machines, but you are most 
likely to come across the extended use of 
procedures and functions in BBC pro- 
grams. Procedures and functions make 
programs infinitely neater and more read- 
able. but they don't actually achieve 
anything which cannot be duplicated using 
ordinary sub-routines. 

Some dialects of Basic will allow you to 
GOTO or GOSUB a variable which 
greatly aids readability — the Basic 
Converter Chart will tell you which 
machines do if you look under GOTO. 

Sharp Basic SP-5025 has a number of 
weaknesses which are discussed in the 
article 'Sharp Logic’ in the September 
issue. 

REPEAT-UNTIL and WHILE-WEND. 
These are two forms of the same control 
loop. one being the logical reverse of the 
other. WHILE-WEND checksthata given 
expression is true and then executes all 
statements up to the first WEND state- 
ment encountered. The computer then 
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returns to the original condition to check 
whether it is still true. If the condition is 
false, the statement following the WEND 
statement is executed. 


For example: 
100 REM — Silly example 
110 X210 
120 WHILE Х>0 
130 PRINT "The current value of X 
uu 
140 X2 X- I:WEND Ace 
150 REM - X is now zero and the WHILE 
test fails 
In a WHILE-WEND loop, the loop is 
repeated while the test expression is true. 
A REPEAT-UNTIL loop works the other 
way around. All statements between 
REPEAT and UNTIL are executed until 
the test expression is true. Thus the above 
example would be written: 


100 REM — Same silly example 
110 X210 
120 REPEAT 
130 PRINT “The current value of X 
mU NU 
140 X2X- I:UNTIL Х-0 
150 REM - X is now zero and the 
REPEAT test is satisfied 
Converting from one structure to the 
other is thus straightforward. But the 
majority ofpresent-day Basics offer neith- 
er of the above. To create the same effect, 
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we have to use a statement that causes 
purists to gasp in horror :the СОТО. 


Thus: 
100 REM — Here we go again 
110 X210 


120 PRINT “The current value of X 
=s. X: 
130 IFX>0 THEN X=X-1:GOTO120 
140 REM - Xisnowzeroand thetest fails 
While somewhat less elegant, the net 
result is the same. We can see that 
rewriting a WHILE-WEND or REPEAT- 
UNTIL structure is simply a matter of 
manually inserting the test (using IF- 
THEN) and pointer (GOTO). 
STRINGS is a statement which allows you 
to repeat a given sequence of characters. 
The format is STRING$(number of times 
to print string,string). If you wanted to 
printa line of asterisks across ап 80-column 
screen, for example, you would state: 
STRINGS$(80,"*"). If your machine 
doesn’tsupport thisstatement, then we fall 
back once again on the ever ready 
FOR-NEXT loop. Thus: FOR A=1 TO 
80:PRINT**";: NEXT, the string is simply 
duplicated, and the numeric argument 
placed in the FOR-NEXT loop. 
TAB. Thisissupported by most machines, 
except that on the BBC micro the TAB 
function is performed by SPC while TAB 
prints in predetermined screen fields. 
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PART 3:APPLE II GRAPHICS 


Surya begins the graphics supplement to the APC Basic Converter Chart with a look at the Apple Il. 


Applesoft supports no less than four 
forms of tab statement: SPC, TAB, HTAB 
and VTAB. SPC (x) prints x spaces. So, 
SPC(10);" Hello" would move the cursor 
ten columns forward and then print 
‘Hello’. TAB (x) moves the cursor to 
column x. If x is less than the current 
cursor column, then the statement is 
ignored. Thus SPC moves the cursor 
relative to its current position, wrapping 
around lines as necessary, whereas TAB 
moves to the absolute screen column 
specified. 

HTAB (Horizontal TAB) is similar to 
TAB, but can move left as well as right. 
HTAB (x) moves the cursor to column 
regardless of the cursors current 
position. VTAB (Vertical TAB) is used to 
position the cursor vertically. VTAB (x) 
moves the cursor to line x leaving its 
column position unchanged. 

As an example: 

100 REM: Tabulating on an Apple II 

110 HOME: REM clearscreen, position 

cursor top-left. 

PRINT ТАВ(10); "Line 1, column 

10" 

130 PRINT 

5РС(5); 

“апа”; 

140 REM Above line would appear оп 
screen as Line 2, column O and 
column 22 

150 PRINT VTAB(12); HTAB(19); “*“: 
REM centre of 40-column screen 

160 END 

To find the current cursor position, the 
POS (POSition) statement is used. POS 
(x) returns the current cursor column. 
The expression x is a dummy value (that 
is, the value has no effect) but must bea 
valid expression which Applesoft can 
evaluate. 

INVERSE switches on the inverse 
video attribute, and is cancelled by the 
NORMAL statement. So: 

100 HOME 

110 INVERSE 

120 PRINT "This will be printed in 

inverse" 

NORMAL 

PRINT "This will 

normally” 

150 END 

FLASH works in a similar fashion to 
INVERSE, switching on the flashing 
attribute: 

100 HOME 


120 


“Line 2, column О”; 
"column 22”; HTAB(1 6); 


130 


140 be printed 
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110 FLASH ZG 
120 PRINT “This text will flash” 

130 NORMAL 

140 PRINT “And this text won't!“ 
150 END 

Finally, the SPEED statement allows 
the user to control the speed at which 
text is displayed on the screen. By 
default, the Apple prints text to the 
screen as fast as it can, but other speeds 
can be selected. Slow speeds (<100) 
are useful for displaying instructions and 
so on, where the display speed is set to 
the average reading speed. 

The statement takes the form 
SPEED=x, where x is an expression 
between O (slowest) and 255 
(default): 

100 HOME: 5РЕЕО-О 

110 PRINT "This will be printed very 
slowly... 

SPEED=255 

PRINT “And this will be printed at 
the normal speed" 

140 END 

The easiest way to simulate slow 
printing on other machines is to place the 
With many things in the  micro- 
computing world, there are agreed 
standards. The ASCII code for 
communications; the RS232, Cen- 
tronics and IEEE for interfacing; the 
5.25in disk and so forth. But when it 
comes to graphics it seems that 
manufacturers and designers don't 
know the meaning of the word 
'standard'. The reason for this is simple. 
In the time it would take to debate, argue, 
redesign and eventually implement a set 
of standards, the graphics capabilities of 
the machines being developed would 
have increased beyond all recognition, 
rendering the standards useless. 

Different machines not only use 
different screen resolutions, but the 
range of graphics-handling statements 
supported varies from simple SET, 
RESET and POINT to a whole array of 
sophisticated features like drawing 
circles and filling-in shapes. All this is а 
rather roundabout way of saying that it is 
not possible to cover the subject of 
graphics in the form of a quick-reference 
chart as with the APC Basic Converter 
Chart. (See November ‘83, АРС.) 

What have set out to do in this series 
of articles is to give you enough 
information about the graphics-handling 
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of each machine covered Бу the chart to 
enable you to work out what is 
happening in a listing. 

Incidentally, as a general tip when 
converting graphics, | recommend 
mapping out a picture of the graphics 
screen of the machine from which you 
are converting on square-ruled paper, 
marking on it rough values. Next, place a 
piece of tracing paper over this grid and 
follow the listing through, sketching in 
lines and text. You can then place this 
tracing paper over a map of your own 
screen to see roughly what values you 
will need to use. 

The complexity of micros’ graphics 
often make program listings for one 
machine all but incomprehensible to the 
owners of other computers. There are a 
lot of well written listings in APC for a 
variety of machines which readers would 
no doubt like to get up and running on 
their own micros. For this reason it is 
worthwhile going into the subject of 
graphics in a fair amount of detail. 


The Apple Family 


The Apple ІІ has three variations: the 
Apple Il, the Appie 1+ and the Apple Пе. 
All three support Applesoft Basic and 
therefore use the same graphics 
handling statements. 

Applesoft supports three screen 
modes — text, low-resolution graphics 
and high-resolution graphics. These are 
called by the statements TEXT, GR and 
HGR respectively. 


Text 


The normal text screen comprises 24 
lines by 40 columns. An 8O-column 
screen is available by installing an 
optional circuit board; and  APC 
programs written for an 8O-column 
machine will have this clearly stated in 
the accompanying notes. 

Text mode has ten statements which 
may be used to format text output on the 
screen: 

HOME clears the screen and positions 
thecursoratthe top-left corner. On most 
machines, this is achieved by the 
statement CLS. 


toka. 


text into DATA statements and use a 
FOR-NEXT loop to print one character at 
a time. А delay loop is used after each 
character is printed to achieve the 
reduced speed: 
100 REM: This solution is designed to 
be portable, not elegant! 
FOR a=1 TO 3: REM number of 
data statements to read 
READa$: REM read line of text to 
be printed 
FOR b=1 to LEN(a$) 
PRINT МІ0$(а$,6,1);: 
print one character of a$ 
FOR c=1 to 12: NEXT: REM 
empty loop to cause delay 
REM adjust value of above 
loop to vary speed 
NEXT b: REM repeat for next 
character in data statement 
PRINT: REM move cursor onto 
next line 
NEXT a: REM repeat for next data 
statement 
DATA This text will be printed 
slowly 
DATA So will this 
DATA And this 
END 


110 
120 


130 
140 REM 
150 


160 
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As promised last month, we continue 
the Apple ПІ guide with high-res graphics 
and sound. 


High resolution graphics (HGR) 
The HGR screen is addressed as 280 
columns by 192 rows with six colours 
available. The Apple reserves enough 
memory for two high resolution screens, 
these being called by HGR and HGR2 
respectively. Four text lines are agzin 
reserved by default and can be made 
available for graphics use by the state- 
ment POKE — 16302,0 and reset to text 
by POKE — 16301,0. 

Two POKEs which you are likelyto find 
in Apple programs using the HGR 
mode are: 

POKE — 16300,0 to switch from HGR2 
.back to HGR 
16303,0 to switch from 
graphics to text retaining text- 
windows and cursor position. 

In HGR mode, there are two main 
graphics statements: HCOLOR апа 
HPLOT. HCOLOR-x sets the foreground 
colour to x, defined as: 

black 

green 

violet 

white 

black 
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Low resolution graphics (GR) 


The low-resolution screen on the Apple 


is addressed as 40 columns by 48 rows. 
Sixteen colours are available. The bottom 
four lines (8 rows) are normally reserved 
for text, but the oft-used POKE-16302,0 
makes these available for graphics use. 
(The CALL-1998 statement which 
usually follows the above POKE simply 
sets the extra rows to black. 

Once in GR mode, 
graphics statements available: - 
COLOR=x sets the foreground colour, 
where x is in the range 0-15 and is 
defined: . 
black 
magenta 
dark blue 
violet 
dark green 
grey 
medium blue 
light blue 
brown 
orange 
a different shade of grey! 
pink 
green 
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Б огапде 
6 blue 
7 white 

Although there are eight codes, two 
are redundant (4 and 7), leaving six 
effective colours. 


HPLOT is an easy-to-follow statement 
operating in a similar way to most 
machines DRAW statements: 

HPLOT x,y lights point (x,y) in the 
current colour. 

HPLOTx1,y1 TOx2,y2 draws a line from 
(x1,y1) to (x2,y2). Cordinates can be 
'chained', so that the following HPLOT 
statement: 

HPLOT О,О TO 279,0 TO 279,191 TO 
0.191 TO 0.0 

draws a rectangle around the edge of the 
screen. Mostbasics don't allow this type 
of chaining, so you'd have to split up 
each pair of coordinates and DRAW, SET 
or PLOT each line separately. 

HPLOT TO х,у draws a line from the 
current cursor position to coordinate 
(xy); it carries on from where it last 
left off. 

There are seven other graphics 
statements in Applesoft HGR mode: 
DRAW, XDRAW, SCALE, ROT, 
SHLOAD, BSAVE and BLOAD. These 
statements concern a feature known as 
shape tables. Shape tables are too com- 
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there are five ; 


13 yellow 
14 aqua 
15 white 

Although l just said that x must be in 
the range O-1 5, it is possible to use any 
value up to 255. But since 16 is 
equivalent to O, 17 to 1 and so on, this: 
fact is not spectacularly useful. 

PLOTx,y is used to light up the 
specified blockin the current foreground 
colour, where xis the column and y is the 
row. In GR mode, the origin (0,0) is top- 
left. 

HLIN x1,x2 AT y is used to draw a 
Horizontal LINe in the current fore- 
ground colour from (x1,y) to (x2.y) 
where x1 and x2 are different column 
numbers and y is the row. 

VLINy1,y2 ATx — of course — draws 
a Vertical LINe from (xy1) to (x y2) 
where x is the column number and у1 
and y2 are different rows. 

SCRN (x,y) returns the code of the 
colour at position (xy. On most 
machines, this is achieved using a POINT 
(xy) statement. 

Next month: Apple Il high resolution 
graphics and sound, and the TRS-80/ 
System 80. 


plex to go into in the space available here 


and, іп any case, the information 
wouldn't be much use to owners of other 
machines since you will find them all but 
impossible to duplicate. 

Shape tables are a form of sprite, a 
kind of sophisticated use-definable 
character. Created by POKEing values 
into memory, shape tables may be saved 
to tape or disk for later loading. The scale 
and orientation of the resultant shapes 
can be manipulated using the 
statements mentioned above. Anyhow, 
unless you are very familiar with both 
Applesoft and the machine you are tran 
slating to, any program making liberal 
use of DRAW, XDRAW, SCALE, ROT, 
SHLOAD, BSAVE or BLOAD should be 
left well alone. 


Sound 


There are only two ways to produce 
sound on Apple: PRINT CHR$S(7) and 
POKEing memory location ~ 16336. 
PRINT СНН%(7) produces a short beep, 
as with most machines. Producing any- 
thing interesting from the noises emitted 
by POKEing — 16336 is a decidedly 
frustrating and not over-fruitful task, so 
this POKE may be safely omitted when 
converting to other machines, 
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TRS-80/System 80 


Surya continues his analysis of each machine on the APC Converter Chart 
(see November 1983 issue). High and low resolution graphics and sound 
capabilities for the System 80 and TRS-80 Model 100 are featured this month, 
plus the final part of the Apple !! conversion. 


it is PRESET. The additions B and F are 
optional. If B is included, than a B)ox will 
be drawn with (x1,y1) as onecorner and 
(x2,y2) as the other. If the F is included, 
the box will be F)illed — either PSET or 
PRESET, depending on the value of a. 
The model 100 also supports sound 
(of the beep variety. BEEP beeps. 
‘SOUND pitch, length’ plays the specified 
note and is similar to most sound 
statements. 


able micro. The graphics resolution is 
239 x 63, and the graphics commands 
are PSET, PRESET and LINE, PSET and 
PRESET are exact equivalents of SET and 
RESET. Considering that LCD screens 
are not noted for wonderful graphics, the 
LINE statement is surprisingly powerful. 
The format of the statement is LINE 
(x1,y1)—(x2.y2), a, BF. The statement 
draws a line from the first coordinates to 
the second. If a=1, the line is PSET; if O, 


The TRS-80 has limited graphics 
facilities; not surprising when you look at 
how long the machine has been around. 
The graphics resolution is 64 x 48, the 
origin (0,0) being at the top left-hand 
corner of the screen. Thus: 

100 Rem: A totally pointless program 
110 CLS: Ү-0 

120 FOR X=0 ТО 63 ӨТЕР 1.3 

130 Y=Y+1 

140 SET ((INT(X)),Y) 

150 NEXT X 

draws a line diagonally across the 
screen. 

The graphics statements are SET, 
RESET and POINT. SET(x,y) lights the 
block at coordinate (xy) RESET 
switches it off again. POINT(x,y) tests 
the specified point, returning — 1 if it is 
lit and O if it is not. 

The TRS-80 also supports a PRINT @ 
statement. This allows text to be placed 
at a specified location on the screen. For 
the purposes of the PRINT @ statement, 
the top row of the screen is numbered 
from zero at the left-hand side to 63 at 
the right. The next line is numbered 64 to 
127,and so onto the bottom line, 960 to 
1023. To print at the bottom line, for 
example, you simply PRINT @ 960, 
thus: 

100 PRINT © 960, “This is printed on 
the bottom line”; 

The semi-colon at the end of the 
PRINT statement supresses the line feed 
which would otherwise scroll the 
screen upwards. 

The TRS-80 does not support sound 
as standard. ; 


The System 80 


The System 80 isan oriental imitation of 
the American TRS-80. Unlike most 
imitations, however, the System 80 is 
every bit as good as the original. The 
TRS-80 is slightly fussier about syntax 
that the System 80, but the two are all 
but identical. Most Basic programs are 
interchangeable. In APC's Programs sec- 
tion, the label TRS-80/System 80 is 
used to describe programs written on 
either machine. 


The TRS-80 Model 100 


The TRS-80 Model 100 is Tandy's port- 
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Atari 


This month, Surya continues his analysis of each machine on the APC 
Convertor Chart with a look at graphics and sound capabilities on the Atari 


The Atari is available in Australia in three 
forms: the 400, 800 and most recently, 
the 600XL. The three models are 
upward-compatible, and all have the 
same graphics capabilities. 

The Atari supports nine different 
screen modes, numbered O to 8. Of 
these, the first three are text modes, the 
rest graphics. A summary of the modes 
is given in Fig 1. 

The statement GRAPHICS x is used to 
select the desired mode, Mode O is 
the default. 


Mode Resolution 


Full screen 


40x24 
20x24 
20x12 
40x24 
80x48 
80x48 
160x96 
160x96 
320x192 


Type 


Text 

Text 

Text 
Graphics 
Graphics 
Graphics 
Graphics 
Graphics 
Graphics 


Oo YJ O O BB ON = O 


Fig 1. Atari screen modes 


In Fig 1,1 refer to full screen and split 
screen. Normally, in a graphics mode, 
the bottom lines of the screen are reser- 
ved for text. By adding 1 6 to the mode, 
this text window can be converted to 
graphics use. Thus, GRAPHICS 2+16, 
or GRAPHICS 18, selects mode 2 
without a text window. In a graphics 
mode, PRINT prints to the text window, 
while PRINT#6, prints to the graphics 
area. 

The Atari has a ‘palette’ of 1 6 colours, 
these being known as hues. The hues are 
numbered from O to 15: 

O grey 8 blue 
1 gold 9 light-blue 
2 orange 10 turquoise 


Split screen 


Not available 


microcomputers. 


red-orange 
pink 

purple 
purple-blue 
blue 


green-blue 
green 
yellow-green 
orange-green 
light orange 


Colour register 


A maximum of five colours may be dis- 
played:at any one time, and this only in 
modes 1 and 2. Therefore, Atari gives us 
a ‘working palette’ of five colours from 


Colours ВАМ required 


993 
513 
261 
273 
537 
1017 
2025 
3945 
7900 


20x20 
20x10 
40x20 
80x40 
80x40 
160x80 
160x90 
320x160 


— PN PN ът ON 


which-to choose; these are known as the 
colour registers. The colour register 
defaults are shown in Fig 2. 

To select one of these colours, the 
COLOUR statement is used. Thus 
COLOUR O will select orange as the 
current foreground colour. Colour set- 
tings apply only to graphics modes. 

The default colour registers can be 
reset using the SETCOLOUR statement. 
SETCOLOUR takes the format: SET- 
COLOUR colour register to be reset, hue 
colour number and intensity. The inten- 
sity is an even number between O and 
14: the higher the number the brighter 
the colour, so SETCOLOUR 1,4,5 sets 
colour register 1 to a moderately bright 


Default 
hue 
number 


2 Orange 
12 Green 

9 Dark blue 

4 Pink-red 
0 Black 


Physical 
colour 


Colour 
register 


Fig 2. Colour register defaults 


(5) and pink (4) from its default of bright 
green (1). Very bright colours (12 and 
14) appear almost pure white. 

All characters on the Atari are printed 
in upper case by default. The statement 
POKE 756,226 switches to lower case; 
POKE 756,224 goes back to upper 
case. 

Once the business of selecting 
graphics modes and colours has been 
sorted out, there are then seven graphics 
statements supported: DRAWTO, PLOT, 
LOCATE, POSITION, PUT, GET, X10. 

DRAWTO x,y draws a line in the 
current foreground colour from the last 
point visited to the specified coordinate. 
(0,0) is at the top left of the screen. 

PLOT x,y plots a single point in the 
current foreground colour at the 
specified coordinate. 

LOCATE x,y,var is similar to the Micro- 
soft Basic POINT statement: it returns 
the colour of the specified coordinate. In 
the text modes, it returns a number 
between O and 255 indicating the ASCII 
code of the character plotted there, and 
places it into the specified variable. 

POSITION x,y positions the graphics 
cursor at the specified coordinate 
without affecting the display. 

PUT #6,z places the CHRS of the 
specified ASCII code (z) at the current 
graphics cursor position in modes O 
through 2. In the graphics modes (3-8), 
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it plots the colour register (z) at the 
current graphics cursor position. 

GET 5*6, var returns the ASCII code 
(text modes) or colour register (graphics 
modes) of the specified coordinate, plac- 
ing it into the specified variable. 

Note that PUT# and GET# state- 
ments only refer to the screen where the 
specified stream is 6; other values refer 
to other devices. 

X10 18,#6,0,0,°$:” is a specialised 
use of the X10 (general-purpose input/ 
output statement). It is used to paint a 
predefined area with a predefined colour. 
To use the statement, the bottom right- 
hand corner of the area to be filled is 
PLOTted. Next, a DRAWTO the top right- 
hand corner is executed. Thirdly, the cur- 
sor is POSITIONed at the bottom left- 
hand corner, and address 765 is POKEd 
with the colour register of the desired 
colour. Finally, the X10 18,#6,0,0,"S:"§ 
is executed. 

How is the text colour set in modes O 
through 2? Why this can't be something 
as straightforward as COLOUR x, | don't 
know. The method of achieving this 
modest task is very strange and absurdly 
complex,. involving referral to two 
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parameters which, for want of anythin 
more original, we'll call a,b,c and d. 

Parameter a specifies the voice (chan. 
nel) in the range 0-3; b is the pitch (0. 
255); c the distortion (0-14, 10 giving a 
pure note, any other channel being 
filtered through one of the 13 fixed 
envelopes); d is the volume, from 1 
(barely audible) to 15 (audible). 

Middle C is pitch 121, each semi-tone 
is either 6 or 7 steps. 


separate tables and not a little arithmetic. 
It involves setting SETCOLOUR to some 
unlikely-looking value, but my advice is 
just choose a text colour which looks pretty 
on the machine you're converting to. 


Sound 
Sound is handled with a statement called 
(wait for it) SOUND. SOUND has four 
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Sinclair ZX81 


The ZX81 produces black graphics on a 
white background. The graphics resolu- 
tion is 64 x 44, the origin (0,0) being the 
bottom left-hand corner of the screen. 
Two graphics statements are supported: 
PLOT and UNPLOT. 

PLOT x,y switches on (ie lights up) 
coordinate (x,y). UNPLOT x,y switches 
off the specified coordinate. Drawing 
lines is achieved using FOR-NEXT 
loops, thus: 

100 FOR Х-0 TO 63 

110 PLOT XO 

120 PLOT X,43 

130 NEXT X 

140 FOR Y=0 TO 43 

150 PLOT O,Y 

160 PLOT 63,Y 

170 NEXT Y 

would draw a box around the edge of 
the screen. 

The ZX81 also supports a PRINT AT 
function (PRINT G, on most machines). 
The PRINT AT screen comprises a 32 x 
22 grid with the origin — justto confuse 
— as the top left-hand corner. To print 
‘HELLO’ in the middle of the screen, you 
would enter PRINT AT 11,13; HELLO’. 

The ZX81 reserves the bottom two 
lines of the screen for input prompts, 
error messages, and so on; these lines 
are not accessible when programming in 
Basic, and so are not assigned 
coordinates. 

Sound is not supported. 


Sinclair Spectrum 


Graphics: 
The Spectrum is available with either 
16k or 48k RAM, but there are no other 
differences between the two models. 
The Spectrum supports eight fore- 
ground and eight background colours. 
The single graphics resolution is 256 x 
176, but there are limitations when 
using colour. The graphics statements 
are as follows: 
PLOT — PLOT х,у lights coordinate (x y) 
in the current foreground colour. 
DRAW — DRAW xy Га) draws a line 
from the last coordinate visited (using 


Sinclair 


Surya continues his look at graphics and sound on each of the 
machines included on the APC Basic Converter Chart (see 
November issue). This month, the Sinclair ZX81 and Spectrum. 


-the left. As a rough guide when reading 


PLOT, DRAW or CIRCLE) to a point x 
coordinates to the right and y co- 
ordinates up. The values of x and y may 
be either positive or negative, and may be 
expressions and/or variables as well as 
literal numbers. 

The value ‘a’ is optional, and instructs 
the computer to draw a curved, rather 
than straight, line. This value specifies 
the number of radians the line must turn 
through as it draws; if a is positive, the 
line will curve to the right, if negative to 


listings, if a = 2*pi, a complete circle will 
be drawn, a=pi then a semi-circle is 
drawn, etc. 
CIRCLE — The Spectrum has a built-in 
function to draw circles. This is con- 
siderably faster than using DRAW, but 
less accurate, which is why you find the 
DRAW method used in some listings. To 
draw a circle, you state CIRCLE xyr 
where (xy) are the coordinates of the 
centre of the circle and r is the radius. 
CIRCLE also appears to contain a slight 
bug. After drawing the circle, the state- 
ment leaves the graphics cursor in — as 
the manual puts it — 'a rather indeter- 
minate place'. For this reason, you will 
normally find a  PLOT statement 
immediately following a CIRCLE. This is 
simply to put the graphics cursor in a 
known position rather than being a part 
of the display routine as such. 
PAPER & INK — A wonderfully sensible 
idea; PAPER being used to set the back- 
gound colour and INK the foreground 
colour.The format is the same in both 
cases, PAPER (or INK) z where z is the 
colour as defined below: 


O — black 

1 — blue 

2 — red | 
3 — magenta | 
4 — green 

5 — cyan 

6 — yellow 

7 — white 


BRIGHT — Sets the brightness of the 
colours. BRIGHT O being normal, 
BRIGHT 1 being extra bright. 

FLASH — Flashes foreground colour. | 
1 = on, O = off. 

INVERSE — Reverses INK and PAPER. 
1 = on, O = off. 


ROGRAM CONVERSION 


OVER — Allows overprinting. Normally, 
if you print (say) a letter 'X' and then an 
addition sign at the same position, the 
second character will obliterate the first. 
OVER allows the old character to remain 
visible, So that the above example would 
produce something like an asterisk (*). 

— on, O — off. Theonly way to recreate 
this on other machines is to work out 
what the combined character would look 
like and see if your character set sup- 
ports something similar. If your machine 
has the facility to support user-definable 
characters, then this is, of course, 
another way around the problem. 
BORDER — The Spectrum has a border 
around the screen which the user cannot 
access for screen displays using Basic, 
but its colour can be reset using 
BORDER z, where z is as for PAPER and 
INK. BORDER has no equivalent on most 
machines and can be safely ignored 
when converting from a Spectrum 
listing. 

Note that colour 8 can be used with 
PAPER, INK, BRIGHT and FLASH to set 
the respective attributes to ‘transparent’. 
Colour 9 can be used with PAPER and 
INK to select automatically maximum 
contrast, thus each is set to white if the 
other is a dark colour and black if the 
other is alight colour. This would have to 
be done 'manually' on most machines. 

When describing the resolution of the 
graphics screen, | mentioned a lirnitation 
when using colour. Plotting a particular 
attribute (colour, inverse, flashing, and 
so on) affects the whole of the character 
position, rather than just the pixel in 
question. Thus, youcannothave a steady 
blue line right next to a flashing green 
one, though you can have two lines 
sporting identical attributes running 
alongside each other. 

The final graphics-related statement 
supported on the Spectrum is 
SCREENS. This is a very useful feature 
which allows you to save the contents of 
the screen memory on tape. This can 
subsequently be loaded from tape in 
order to recreate the display. The format 
is SAVE "filename" SCREENS to save, 
and LOAD "filename" SCREENS to load. 
This is most commonly used to load title 
screens for display while the main pro- 
gram is loaded. 


Sound: 
Sound on the Spectrum is controlled 
| using the BEEP statement, the 


onomatopeiac word BEEP being a pretty 
accurate description of the sound quality. 
The format is SOUND duration, pitch. 

Duration is in seconds and pitch is in 
semitones: O is middle C, negati ve num- 
bers are lower, positive numbers higher. 
Each octave, of course, spans 1 2 semi- 
tones. 
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PROGRAM CONVERSION 


‘BBC 


This month Surya turns his attention to the BBC in his continuing series on graphics and sound 
on each of the machines included in the APC Basic Converter Chart (see November issue). 
Find out how to convert BBC listings to work on your micro. 


The complexity of the BBC's graphics 
often make its listings all but incom- 
prehensible to owners of other 
machines. But there are a lot of well- 
written BBC listings around which the 
aforementioned owners would no doubt 
like to get up and running on their’ own 
machines. For this reason, | think it 
worthwhile to go into the subject in a fair 
amount of detail. 

The BBC comes in one of two models: 
the ‘A’ and “В. The only difference 
between the two as far as graphics is 
concerned is that the model B offers 
eight screen resolutions, or ‘modes’, 
while the A offers only four. 

The BBC has very powerful graphics- 
handling capabilities. This is usefulif you 
own one, but makes life difficult for any- 
one trying to convert BBC graphics 
routines. Let's start with the business of 
modes. The model B can support eight 
different screen resolutions, while the 
model А supports modes 4, 5, 6 and 7 
only. A brief summary of the modes 
follows: 

О — 80х32 text, 640x256 graphics, 
2 colours 
40x32 text, 320x256 graphics, 
4 colours 
20x32 text, 160x256 graphics, 
16 colours 
80x25 text, 2 colours, text only 
40x32 text, 320x256 graphics, 
2 colours 
20x32 text, 160x256 graphics, 
4 colours 
40x25 text, 2 colours, text only 
40x25 text, teletext mode (see 
later) 
Mode x, where x is in the range O to 7, 
clears the screen and places you into the 
appropriate mode. This can be done as 
either a command or statement. 

Once in a given mode, the graphics 
statements are as follows: 
CLG —clears the 

screen 
—clears the text screen 
— move the graphics cursor 

to point х,у 


graphics 


CLS 
MOVE х,у 


—draw a line from the 
current cursor position to 
point x,y in the current 
foreground colour 

—set the colour to be used 
for all subsequent print- 
ing of text, where x is an 
integer in range O to 15 
to set foreground colour, 
128 to 143 to set back- 
ground colour. Note that 
the colour values are 
dependent upon the 
current mode: colour 2, 
forexample, is yellowina 
four-colour mode but 
green in mode 2 (the 16- 
colour mode). For an 
explanation of the colour 
codes, see later. 

—sets the colour to be used 
for ` all subsequent 
graphics operations, 
where x is the colour and 
wis the logical operation 
defined as: 

use the specified colour 

OR the specified colour with any 
colour already present 

AND the specified colour with any 
colour already present 

XOR (eXclusive OR) the specified 
colour with that already present 
invert (that is, change to the logi- 
cal opposite) the colour already 
present 

Note that x is as for COLOUR. 

PLOT — more powerful version of 
draw: see later for 
further details 

To set the text or graphics colour, 
numbered codes are used. These codes, 
as has been mentioned, are dependent 
upon the current mode. These codes can 
be reset (see VDU later — virtually every- 
thing you say about BBC graphics needs 
to be qualified in some way), but default 
values are: 

Two-colour modes (0,3,4 and 6): 

Black —O foreground, 128 

background 


DRAW x.y 


COLOUR x 


GCOL w,x 


White —1 foreground, 129 
background 
Four-colour modes (1 and 5): 
Black —O foreground, 
background 
—1 foreground, 
background 
—2 foreground, 
background 
—3 foreground, 
background 
Sixteen-colour mode (2): 

Black —O foreground, 
background 
—1 foreground, 
` background 
—2 foreground, 
background 
—3 foreground, 
background 
—4 foreground, 
background 
—5 foreground, 
background 
—6 foreground, 
background 
—7 foreground, 
background 
Flashing colours: 

Black/White 


128 


Red 129 


Yellow 130 


White 131 


128 


Red 129 


Green 130 


Yellow 131 


Blue 132 


Magenta 133 


Cyan 134 


White 135 


—8 foreground, 136 
background 
—9 foreground, 
background 
—10 foreground, 138 
background 

—11 foreground, 139 
background 

—12 foreground, 140 
background 

Magenta/green —13 foreground, 141 
background 

—14 foreground, 142 
background 

—15 foreground, 143 
background 


Red/cyan 137 
Green/magenta 
Yellow/blue 


Blue/yellow 


Cyan/red 
White/black 


The last four colours incidentally, are 
not a typesetting error but merely one of 
the BBC's little idiosyncrasies. 

To recap, first of alla mode is selected. 
This determines the resolution and the 
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number of colours available. Then the 

screen may be cleared (using CLG and 

CLS), and the text colour (COLOUR x) 

and graphics colour (GCOLx) set. The 

graphics statements available are 

MOVE, DRAW and PLOT. 

PLOT: 

Whichever mode has been selected, the 

Screen is addressed as a virtual screen 

1280 x 1024 pixels. The origin (0,0) is 

at the bottom left-hand corner of the 

screen though this — like most things on 
the BBC — can be repositioned if 

desired. As desribed earlier, DRAW х,у 

draws a line in the current foreground 

colour to the specified coordinates. 

MOVE x,y moves to the specified coor- 

dinates without drawing (OK — for the 

purists — it draws a line in the current 
background colour (s)). PLOT is a more 
sophisticated form of DRAW and uses 
three parameters which we'll call k, x and 

y since the manual does. 

Parameters x and y are straight- 
forward, these being the coordinates 
used. The parameter k determines the 
manner in which the line is plotted as 
follows: 

O — move (ie, draw in background 
colour (s)) relative to present 
position 
draw (in foreground colour) rela- 
tive to present position 
as 1, above, but in 
inverse colour 
as 1, above, but in background 
colour. This differs from O in that 
the background colour will over- 
write any foreground colour 
present 
move to position (х,у) 
draw line to position (x,y) in 
current foreground colour 
as 5, but in logical 
colour 
as 6, but in current background 
colour 

Note that O-3 plot x points in the x-axis 

and y points in the y-axis; that is, the plot 

is relative. 4-7 move to the screen co- 
ordinate (xy); that is, the plot is 
absolute. 

Higher values of k may be used to 
achieve other effects. The ones which 
are currently implemented are: 

8-15 —  asO-7 but with the last point 
in the line omitted 
as O-7 but using a dotted 
line 
as O-7 but using a dotted 
line and with the last point in 
the line omitted 
as O-7 but plotting only the 
last point of the line 
as O-7 but use the last two 


logical 


inverse 


16-23 — 
24-31 — 


64-71 — 
80-87 — 
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points visited to plot and fill a 
solid triangle 

You can see from the above that PLOT 
4 isthe same as MOVE and PLOT 5 is the 
same as DRAW. 

There are also 33 VDU codes’, a num- 
ber of which are related to graphics. 
These appear in listings as VDUx, where 
the most commonly used values of x 
are: 

5 — join text and graphics cursors to 
enable text and graphics to be 
printed at the present graphics 
cursor position. This is disabled 
using VDU 4 
a very common VDU code used 
to redefine logical! colours. For 
example, colour 1 is normally 
white in two-colour modes, but 
the programmer may wish to 
change it to a different colour. 
Thus VDU 19 allows access to 
colours not normally available in 
a given mode. The statement 
takes the form VDU 19, logical 
colour code, new colour code, 
0,00 OR VDU 19, logical colour 
code, new colour code;O;. Thus 
in mode О, VDU 19,1,3;0; 
would redefine white to appear 
as yellow. VDU 20 resets all 
colour codes to their default 
values. 
define a user-defined character. 
It uses the same binary-based 
system as most other machines, 
the form being VDU 23, ASCII 
code of the character to be 
defined, followed by the eight 
codes separated by commas. 
define a graphics window, that 
is an area of the screen outside 
of which no graphics may 
appear. The form taken is VDU 
24,lower x coordinate;lower y 
coordinate;upper x coor- 
dinate;upper y coordinate;. Thus 
VDU 24,100;200;300;400; 
would define a graphics window 
with coordinate (100,200) as 
the bottom left-hand corner and 
(300,400) as the top right-hand 
corner. This is reset by VDU 
26. 
define a text window. This 
works as for VDU 24, only com- 
mas are used instead of 
semi-colons and no trailing 
punctuation mark is required. 
The text screen is 39x31 
characters by default. VDU 26 
resets default. 


And that covers the graphics handling. 
Now for sound. 


2 of 2, 


Sound 


The BBC has two sound statements, 
SOUND and ENVELOPE. The SOUND 
statement is relatively straightforward, 
ENVELOPE is so specific to the BBC that 
it would be of little use to spend the not 
inconsiderable amount of time 
necessary to explain it. Even if you could 
work out roughly what sort of sound was 
being created, you would have no way of 
effectively simulating it on another 
machine. What ENVELOPE does is to 
define the shape of the sound generated 
by the SOUND statement, so you may 
not be able to recreate the sound 
faithfully. 
The format is SOUND channel, 
volume, pitch, duration where: 
* Channel is in the range O-3, channel O 
producing ‘white noise’ and used to 
create special effects. 
ж Volume is іп the range O to -15 with O 
silent (useful) and -15 the loudest 
* Pitch ranges from O to 255, covering 
some five-and-a-bit octaves. 
* Duration is in the range-1 to 254. -1 
means ‘continue until stopped’ (either by 
pressing escape or by sending another 
note to the same channel), positive | 
values are in twentieths of a second. 
Sending two or more notes to the 

same channel at the same time produces 
a chord. Where channel O is used, the 
type of white noise produced depends 
upon pitch, the BBC manual summaris- 
ing the effects as follows: 
О — high-frequency periodic noise 
1 — medium-frequency periodic noise 
2 — low-frequency periodic noise 
3 — periodic noise, frequency deter- 

mined by pitch setting of 

channel 1 

high-frequency white noise 

medium-frequency white noise 

low-frequency white noise 

white noise, frequency deter- 

mined by pitch setting of 

channel 1 
And that's the BBC micro! You do need 
to remember that without the equivalent 
ofthe ENVELOPE statement, you will not 
be able to achieve the kind of complex 
sound effects used in some BBC pro- 
grams. Sound effects are generally the 
frills rather than the meat of a program, 
and while good sound effects can very 
much improve a program, they can 
usually be simplified without losing the 
effectiveness of a program. 


(Can be done directly by POKE 30945,175.) 
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HERE is a simple way to add automatic line 
numbering and trace functions to VZ200 
BASIC. Automatic line numbering should 
be self-explanatory. However. the trace 
function may need some explanation. When 
attempting to debug a BASIC program. it is 
sometimes useful to see exactly what 
sequence of instructions the computer is 
interpreting. This is the function of the 
trace command. It prints out on the vidco 
the sequence of line numbers the computer 
(the interpreter) is stepping through when 
executing a program. This allows you to 
make sure the program is doing what vou 
intended it to do. (Especially useful in the 
case of conditional СОТО or GOSUB 5). 

As adding the trace functions (TRON 
and TROFF) is the simplest task. I will deal 
with that first. 


Before running your program. type in 


POKE 31003.175 from the immediate mode 
(no line numbers That's it? This is eguiya- 
lent to typing in 'TRON'. Now when vou 
run your program. each time a new linc is 
selected to be interpreted (or the same line 
number repeated) it will be printed on the 
video. To disable this function just type 
POKE 31003.0 from the command level. 
This simulates using the ‘TROFF 
command. 

A drawback with this method is that you 
might only want to debug a small section of 
the program and so have to contend with 
sorting out that small section from the rest 
of the displayed line numbers. This can be 
simply overcome by adding POKE 
31003,175 into your program with a line 
number which places it in the program just 
before where you want to start the trace. 
Then add POKE 31003,0 with a line num- 
ber which places it where you want the trace 
to stop. 


Auto 

Now to deal with the slightly more complex 
‘AUTO: function. This function. when 
enabled, saves you the trouble of typing 
sequential line numbers when entering a 
program. This very useful function will 
automatically display the next line number 
when vou hit RETURN ' at the end of a line 
of program. 

To do this you need to supply the starting 
line number and the increment between 
lines. Next you nced to set a flag which tells 
the BASIC that the ‘AUTO’ function is 
enabled. (This must be done last or vou will 
go into the ‘AUTO’ mode before you have 
supplied the starting line and increment.) 

The starting line number must be POKEd 
into locations 30946 and 30947. and the line 
increment POKEd into locations 30948 and 
30949. These have to be in two-byte form 
with the least significant bit (LSB) going 


This article details how you can simply add automatic line 
numbering and TRON and TROFF trace functions to the Dick 


Smith VZ200 colour computer. 


Steve Olney 


into the first location of each pair. and the 
most significant bit (MSB) going into the 
second. 

For the line increment this is no problem 
as long as you keep the increment below 
255. (Most increments would normally be 
less than 100). Just POKE 30948, ‘incre- 
ment and then POKE 30949,0 where 
‘increment is less than, or equal to 255. (I 
usually use 10 or 20 as the increment.) 

Of course, the line number would most 


likely be above 255, so you must convert . 


your starting line number into two bytes 
where: Ж Ез - 
LINE NO. = (МВ * 256) + LSB 

and where we: ` 

РОКЕ 30946, LSB and POKE 30947. MSB 


Example: For a starting line number of 2000 


MSB = INT(2000/256) = 7 

LSB = LINE МО.—(М5В*256) = 208 
So wc must: 

POKE 30946. 208 

POKE 30947, 7 

For those not content with trouble of cal- 
culating this every time the " AUTO' mode 
is entered. I have written a short program to 
do this as well as to enable the ‘AUTO: 
function itself. (Can be donc directly by 
POKE 30934.175.) Use line numbers which 
will put it well out of the way of any main 
program vou are entering. 

0 CLS 

10 INPUT"STARTING LINE NO. ';S 

20 INPUT"INCREMENT `1 

30 MS=INT(S/256): 15-5-М5”256 

40 POKE 30946.LS: POKE 30947.MS 

50 МІ-ІМТ(1/256): LI=I-—M1*256 

60 POKE 30948.11: POKE 30949.MI 

70 POKE 30945.175 

80 END 

For convenience, type this small program 
in starting from line number 0. This will 
enable quick access by just typing ‘RUN’ 
and then ‘RETURN’. However to run your 
programı, you will now need to type. "RUN 
XXXX;. Where ^xxxx' is the first line number 
of vour program. 

To exit from the ‘AUTO’ mode. type 
‘CTRL’ and "BREAK simultaneously 
exactly the same way you exit or interrupt а 
BASIC program. Incidentally. BASIC will 
automatically exit from the ‘AUTO’ mode 
when the new line number would have been 
greater than 65529. (The maximum line 
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number allowed in this BASIC.) 

A useful feature of this ‘AUTO’ function 
is that. if you specifv line numbers which 
include previously entered lines. then not 
only is the line number displayed but also 
the statements previously entered. 

The cursor is conveniently positioned at 
the end of the line ready for any additions to 
that linc. This can be used as a convenient 
editing feature. For example. let us suppose 
you have entered your program and now 
wish to go through and make corrections. 
Enter the first line number of the program 
to be corrected and the appropriate linc 
increment for that program. You can now 
single step through your listing and make 
corrections as you wish! Unfortunately, 
there is no simple way of decrementing the 
line number. (other than manually POKE- 
ing in location 30946). 


Why So Simple? 

How was I able to add these two functions 
so easily? Well. on close scrutiny of the 
VZ200 BASIC in ROM. I discovered that it 
was fundamentally similar to Level H TRS- 
80 BASIC. By finding the equivalent contro] 
arcas in RAM for the VZ200 BASIC, and by 
experimentation. I was able to get the func- 
tions working. 

Apparently. the machine code for the 
execution of the ‘AUTO’, ‘TRON’ and 
`TROFF` functions is still present in the 
VZ200 BASIC ROM, but the interpreter 
has been altered so as not to recognise the 
commands as valid in an input text string. 

Why the machine code would he present 
in the BASIC ROM but not enabled is a bit 
strange. Perhaps some functions were 
dropped in order to implement all functions 
provided on the multi-function keys. 

A word of warning! Like all situations 
where you are patching software (especially 
when written by someone else). beware of 
yet-undiscovered gremlins. I take no 
responsibility for any havoc wreaked by 
same! 

A more elegant and flexible approach 
would be to intercept the text interpreter 
and make it recognise the ‘AUTO’ and 
trace commands from the immediate com- 
mand level. and perhaps add à Jine re- 
numbering command. But that’s another 
story! e 
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X More functions for the VZ200, March '84: There is an error in the second 
column, just above the listing of the short BASIC program. It should бе... 
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Some 
more 
routines 


By. Philip Middlemiss 

In the Dick Smith VZ200 there are a 
number of new routines which can be 
used by the use of simple BASIC 
commands. These routines are: 


.. te Detint .x (defines variables 
listed as integers). Š 

(2: Defdbl x (defines variables 
listed as double precision). 

3: Auto: (auto line numbers). 


4: Print Mem: (prints the memory 
available). 

5: On x GOTO line1, line2, etc. 

6: Delete (deletes a block of 


BASIC program). 

All of these routines must be used with 
a lie number, and under most 
circumstances sbould be typed before 
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any other program lines are typed in. 

If a program is already in the computer 
and-you wartt to add one of the above 
routines then put the line right at the 
beginning of the program with a GOSUB 
or GOTO routine in the line where you 


want the routine to be used. (See 
example A). 
When the routine is put into the 


computer you must use a line number 
lower than any existing line number 
already in the computer. 

When you LIST your program you will 
see the line number only, with nothing 
after it, so editing this line is not 
possible. The reason that the line is blank 
is that in the VZ200 ROM there are no 
“BASIC words'for these routines. 

Hera are the ‘instructions for each 
routine. Don't type that Which is 
enclosed in( ). 

(DEFINT X) (X can be А,В,С, etc ОГАЕ G 
etc). 

10 PRINT A,B 
POKE 31469,153 
Then type rest óf program. 


: (DEFDBL X) 


10 PRINT A,B,C 
POKE 31469,155: 

Then rest of program. 

When these variables are found in your 
program-they will automatically be used 
as integers. or double precision as 
programmed.) 

(AUTO) (to generate 
numbers 10-20-30-40, etc). 
1 PRINT - 

POKE 31469,183 
RUN КП 

(То generate AUTO line numbers 
starting at, say, БОО with steps of 20). 
1 PRINT 500,20: 

РОКЕ 31469, 183 
RUN 
(The first number i is the start number, 


AUTO line 


the second is the step between 
numbers). 

When AUTO is finished with remove. 
line 1. 
(PRINT MEM) 


1OPRINT X L 

POKE 31470,200. 

RUN 

(Also see example А.). 
(ON x GOTO 
100,200,300) . 

ЛО POKE 31469,161 


*(OR GOSUB) 
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(For use see example B.) 

(DELETE) 

(After a program has been loaded and 
is working you sometimes need to 
remove a block of program that is no 
longer needed or needs to be replaced. ) 
1 PRINT 150-300 
POKE 31469,182 


- RUN 


“(Іп this example lines 150 to 300 will 
be deleted.) 


Example A 

When the routine is required in the 
middle of a program use as this example. 
2 PRINT X:RETURN 
POKE 31470,200 
1 GOTO 10 


‚ 10 (rest of program) 


When memory available is required in 
the program use: Line no GOSUB 2. 


Example B . 

Inthe ON X GOTO routine, when X =1 
the program will branch to the first line 
No., and if X =2 then the program will 
branch to the second line No., etc. Here 
is how it can be used. 

70 PRINT X GOTO 100,200,300,400 
POKE 31469,161 

10INPUT “ENTER TWO NUMBERS'',a,b 
20PRINT'"ENTER 1 TO ADD" 


30PRINT*' 2 TO SUBTRACT” 
40PRINT*' 3 TO MULTIPLY” 
5OPRINT'' 4 TO DIVIDE” 
60INPUT X 


80 (continue with rest of program) 

Other words decide where this line is 
to be, give it the correct line number. But 
type ії in first followed immediately by its 
POKE statement. You could also use it as 
example A. You could do it this way: 
Type IN PROGRAM В, replace line 70 with 
GOTO 2 and then add: 

2 PRINT X GOTO 100,200,300,400 
POKE 31469,161 
1 GOTO 10 

If two or more of these routines are 
required type as below: 
5 PRINT A,B,C 
POKE 31469,153 


- 4 PRINT X,Y,Z 


POKE 31469,155 

This will make A,B,C variables integers 
and X,Y,Z variables double precision. 
These lines can be typed in after the 
prograrh .is loaded as long ‘as line 


-numbers lower than five have not been 


used. 


V-ZED — 
THREE NEW FUNCTIONS 


This Б a гол» feature to assist 
VZ 2OO users to come to understand 
more about their computers and to learn 
a few tricks which are not necessarily 


way back in the mid 70's and which pro- 
bably supplies over 8096 of all BASIC 
interpreters іп use today. Not surprtsing- 
ly. when a new computer such as the 
VZ comes along. MICROSOFT takes its 
standard BASIC interpreter and modifies 
It to suit the new hardware 
ticular features which the manufacturer 
would like included. From the user's 
“Peg of view there are both advantages 
and disecvarrttages to this approach. 
The main disadvantage is that the 
resulting code can become very untidy 
with patches on patches right 


throughout the ROM. The outcome 
often being inefficient use of space and 
Blower execution. On the positive side 
however, there are likely to be routines 
still left in from other interpreters which 
are not Intended to be available in the 
VZ but, with a littie fiddling can be us- 
ed. To the average computer user, the 
thrill of making your computer do 
something which the manufacturer 
never intended, is worth any of the 
disadvantages. The purpose of this ar- 
ticle is to start you off with three hid- 
den functions. Once you start ex 
perimenting in this area you will no 
doubt find others. Please write in and 
let us know about them so that we may 
all share in them. 

The MICROSOFT BASIC inter- 
preter as implemented іп the Tandy 
TRS-80 Model 1 occupied 12 Kbytes 
of ROM. Although we do not know for 


Micron to 


Sure, й Is Hkely that this Implementation 
started a new family of BASIC inter- 
preters of which the VZ's Is a derivative. 
Certainly there seems to be no surplus 


VZ has a number of additional features 
over and above those avaliable іп the 
мд In particular, the support for 
higher screen resolution, colour and full 
screen editing obviously requires extra 
code. Even though this interpreter now 
occupies 16K of ROM h became 
to leave out some of the 


Bo e these things remain locked 
in the ROM and can be access- 
th 


ed with a bit of judicious POKEing. 


AUTO LINE NUMBERING 


The Interpreter contains an 
AUTO line numbering routine which 
when activated, automatically prints the 
next line number on the screen to 
speed up the entry of BASIC programs. 


Ing 

line 100 with an increment of 10 so that 
the second line would be 110 the third 
120 etc. The AUTO routine operates 
every time you press the RETURN key 
from the COMMAND mode. It looks at 
address 30945. Н that address contains 
a zero then AUTO numbering Is off and 
the computer behaves normally. 
However, If that value is 1, the AUTO 
routine looks at addresses 30946 and 
30947 to find the value of the starting 
line number then at addresses 30948 
and 30949 for the increment between 
line numbers. The next line number is 
then eutomatically displayed on the 
screen. The only of the AUTO 
routines missing is the ability to 
recognise the AUTO command Itself. 
However, if you POKE the appropriate 
values into the memory addresses 
above. you will be able to use this 
facility. 

To set the starting line number. 
POKE the decimal equivalent of its 
Least Significant Byte (LSB) into ad- 
dress 30946 and the decimal equivalent 
of ts Most Significant Byte (MSB) into 
30947. Similarly, to set the line incre- 
ment, POKE its LSB into 30948 and its 
MSB into 30949. It Is likely that this is 
double Dutch to relatively new users of 


PROGRAM LISTINO 1 


FEM SET STRFTIHG LINE NO 
INPI 
FOE 30346,4 
РОКЕ 30947. INT: ZL^256» 
PEM ЕТ THE ІНСРЕМЕНТ 


DIXIE 
63218 
66020 
GBs) 
64354 
ИСЕ 
єдога 
CODE 
,, 1013 
DE1 IU 


FOE 
POLE 30943, INTC INES 2 
КЕМ SWITCH ON THE ALTO 
FOVE2G346, 1 


ша, 40): p 3-4 


the VZ so we have Bustrated the techni- 
ques with the program below. If you 
wish to know more about the subject 
of POKEing etc. you will find a good ar- 
ticle in Volume 4, Issue 4/5. 


We suggest you enter this 
routine, make sure It works satisfactori- 
ty then CSAVE It under the narne AUTO 
or similar. You can then load h in 
whenever you are 52 program 

nt. We have used high line 
numbers to keep It out of the way of 
your own programs. To start t operating. 
type RUN 60,000. Incidentally, you ter- 
minate AUTO line numbering by press- 
ing the BREAK kay. 


TURNING OFF THE BEEPING 
KEYBOARD 


Now that you have AUTO line 
numbering. you will probably want to sit 
up all night entering programs. Only 
trouble ks, the beeping of the keys 15 
likely to keep the rest of the family 
awake. 


No problem: 
ee 30779, O disables the key beep 


POKE 30779, 1 tums It on again. 

You may enter this straight from 
the keyboard or include It as a line іп 
your program. 

Incidentally, this memory ad- 
dress appears to carry out some other 
functions, depending on the bit that Б 


. 4, 6, 8 etc. turn It off, 1, 

‘etc. tum It on. Bits 1 and 2 

> special effect but bit З clears 
screen and positions the cursor at 
he bottom left hand corner. This bit 


Could tell bits 5, 6 and 7 had no effect. 
FREE SPACE 


Probably the most useful POKE 


mernory you 
left to cram in those last few lines 
before being told by the machine that 


30863,39: 
PRINT USR(X) ‘FREE MEMORY 
OR 
PRINT USR(X$) ‘FREE STRING 
SPACE 


FOF THE HUT ROUTINE 


"STARTING (ІНЕ NUMBER’: SL 
SL-256XINT'r 512256); 


BETWEEN LINE HJHEEFS 


INPUT" INCREMENT ЕЕТЫЕЕН LINE NOZ": IN 
20342. IN-256# INTC IN“ 256 77 


LINE NUMBERING ROUTIKE 


V-ZED 


Last Issue we explained how to 
obtain three new functions from the 
VZ20O, including a POKE which turns 
off the beeping keyboard. Reader Ken 
Hicks became concerned that this lat- 
ter recommendation might actually 
cause some damage to the innards of 
the computer and possibly to the 
speaker itself, he writes: 

І read with some interest your 
piece on the new functions for the 
V-ZED. 

It was on the strength of your 
supporting this machine that | bought 
one for my young son. To date І have 
had no joy with the darn thing — it has 
twice been returned for service, and | 
have not yet received it or a 
replacement. 

I purchased a copy of the Tech- 
nical Reference Manual with the unit, so 
while waiting for the unit to turn up 
again, | have read the manual from cover 
to cover, which probably is not a bad 
idea, but which | almost certainly would 
not have done under normal circum- 
stances. This Manual gives full circuit 
diagrams and reveals the very much 
simplified address decoding. There is 
also some very useful information on 
the System pointers, memory mapping, 
and particularly the details of graphics. 

The addresses of a few routines 
in ROM are given, which will be familiar 
to ML programmers who use the old 
Microsoft ROM. For example, 28A7H 
and O1C9H are still message output and 
clear screen routines. 

‘Evidently the writer of your arti- 
cle has not studied his TR Manual, as 
it gives details of the function of an out- 
put latch which effectively occupies all 
locations from 6800 to 6FFF inclusive. 
This is a write-only latch which services 
the cassette output, speaker, and video 
display controller. This latch is copied 
at 783B (30779), and its bit allocation 
is: 

Bits O & 5 drive the speaker. 
They are normally toggled alterna- 
tively in a push-pull fashion to 
produce a tone. Holding one bit at 'O' 
would therefore hold the speaker di- 
aphragm ‘pushed’ while holding the 
other bit at 'O' would keep it ‘pulled’, 
with.an audible click as it went from 
one state to the other. 

Bits 1 & 2 generate the cas- 
sette output signal. Fiddling with 
these could corrupt a tape if the cas- 
sette were in the RECORD position! 

. Bit 3 controls the VDC dis- 

play mode. An 'O' here sets MODE 
(О), while а 4” causes the VDC to 
operate in MODE (1). This effect is 
via the video controller chip. 

Bit 4 controls the background 
colour. It it is 'O' then the background 
will be green, while if it is 1” the 
background will be orange if in 
MODE (0) and buff if in MODE (1). 
Thus, its effect depends on bit 3. 

The BEEP routine is at 3450H. 
Calling this address will produce a 


ВЕЕР, but some disassembly around 
this area would be necessary (or 
perhaps around the keyboard scanning 
area — from 2EF4H) to find out how to 
silence the BEEP It is possible that the 
brute force method suggested by your 
correspondent could damage the 
speaker or a chip by passing a current 
continuously, which is apparently what 
happens when ‘O’ is POKED іпіа 
30779. -1 don't want to disparage your 
correspondent, but this just could be 
one instance where it is possible to 
cause physical damage to a computer 
via the keyboard! 

Thank you Ken. There are two 
minor errors in your analysis of the sit- 
uation of which one is significant to this 
discussion. Firstly, to correct a point of 
fact, bit 5 of the output latch is always 
held high whilst bit O is toggled from 
high to low to produce sound from the 
speaker. Of far more significance than 
that, however, is the nature of the 
"Speaker '' itself. It is a piezo electric 
device. i.e. it consists of a crystalline 
substance with two metallised plates, 
one connected to bit 5 the other to bit 
O. When there is a voltage difference 
between these two plates, the crystal 
actually changes shape, thus displacing 
the air surrounding it causing a ‘‘Click’’ 
to be heard (if the differential voltage 
has been applied rapidly enough). The 
BEEP routine you mention at 3450H al- 
ternatively sets and resets bit O thus ap- 
plying a continually varying voltage 
across the crystal causing it to change 
shape rapidly and emit an audible tone. 
During this process very little energy is 
disippated since the piezo electric 
device appears electrically like a capa- 
citor being alternatively changed and 
discharged. This device will not be 
damaged by applying a constant poten- 
tial across it which is within its operat- 
ing range. Nor will any IC be called on 
to carry excessive currents. In short, 
the POKE's recommended will not 
cause any harm to the computer. 
Nevertheless, thank you for raising this 
interesting subject. We would welcome 
similar contributions from our other 
readers. 
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REM ЖЖЖ MEMORY PEEK XXX 
2 REM ЕПЕ We гий 

FEH EY Е.СНЕ5ОН 

БЕН %555%55%555%5%8545993 

CLS 

ШИН МЕМСЕТ-РЕЕК Ы 

FE: ТНТ "Wa s " ; 

ШӘ ШРКЕ55 <<5РаСР>2> LU PRINT НЕА. NU "i TD SLOW CUN FRIHTIHG 
ASG 63 ШЕ- Ка] Ш 012^] ; БЕНЕН" 

5 FF I HT” Шадан раан FEE EERE EEE ESEN" ; 

ИӘ ҰШРЕБ55--:сс--:- ә2. FOR. NEW AUDRE SOP 

FF: IHT "ЕЕЕ ане ет сан ылық E EERE ee ыы; 

ІНРИТ"МЕМШЕТ LOCATION СЕСЕ =" %1 

(ВОР Hea... DEL -snonki СНЕ Os ie 

FORDSETOdS9 : HENTÛ > 

SOT OS RaW 

1 2+AESC A1 > 

sss STHEMGOT Ma 1 си 

Sele ЧЕ А2 x: п2=1НТ А2-Е2 2: 2=69 


Р زیم‎ m uuu - mago 


Qo à m Г مر‎ m 


dase:Ez-D2725&e:Fz-EZ-IHTKEZ»:G62IHTC EZ-FZ 3: 2=6: 


Tua 


эз — — — — — Ic nmm 7. ү du Na fe PN 


л FüRY-1BTOIS 

йй IFG-YTHEHESZCHK$CZ2»:GUTO13Z0 

1й 2=24+1:NEXT 

зӣ H-FZX256:I1-H/16:JeI- INTC I>: Ke INTO IJi: Z=65 Крона ена, vzEp 

4ü FüRY-zIGTUIS 4 te edi 
ea debo en Toa If you are interested in finding 
26 = ss. ыа /S-CHRS« 2): GUTO 120 out what your У2200 stores in its 
EE der memory enter this program and have a 
gu L= J16: M= =L-IHTEL 5»: F=IHTEL-M >: Z look. id к. 

Эй FUFY=18T015 The program will display оп the 


IFF p» e SCHR BE 2 3 ian TO ad screen the information you need to 
= =2+1 E А алы ue know to run it and asks for a start ad- 
IFCZ?9THEHzZACELZEZSH dress in decimal. 


Ba. 2 3$; :GüTOeed After going to the start location 

p ША T E it will print the DECIMAL address, Z80 

Ш as a e s address, CHR at that address and ASCII 
Я ! „е ا ارا : د ۳ا‎ | Ue code. 

EE ITE sss The program runs very quickly 

ТЕК >ЭТНЕМЗӘВЕ, SE 310 so to slow it down press the SPACE key. 


mS d БЕ. Pressing the SPACE key slows down 
IFF2*3THEHZZBELZE24ü the program and also pipt the HEX ad- 
РЕІНТТНЕС 2 AT: ITN dress of each location on the screen. 


If you want to change the 
memory location while the program is 
running press the (:) colon key and you 
will be asked for a new start address. 


РЕ DT 


ots 


Im m m mmm 


muc 


L$-IHKEYS$: IFL$-" "THEHZS 
БИР ЫБЫ) , 
MAADE HES DECIMAL source CHE. ASCHE [Yycvo - yo 

3 FüED-BüTO423: HETO 

5 PRIHTTREC 12 9E 141; N 

3 РКІМТІНЕС 20342; (8) 1 944 

3 PRIMTTAGS ZE »CHES« ET 2; P 9 ачи 
ЕЕ1НТТНЕ 25061 Ë 
86 kSzIHEREYS: IFK&z" : " THENSH 

wi HESTA 


- = 


= 


«nen ل لب‎ 0 0 en en en + 


=x, 


“TE THE HIGUOTUO Z1 и 


: “THIS IS -PIDP Ur MEMORY: == 
РЕ НТ “айй Esta 88 Itoi: YS UR SNS Ш 
К%=1НКЕФ 

ІФ-ІНКЕТФ:ІРІФ-""ТНЕНЕНІ Le 
IFI$-2"y"UCLz:GünTUeB 

IFI$-"H"CLZ:EHD 
1$zlHEKE'Y$:IFIS$o"YUBRHDISe2"H"THEHEBR11€ 


RT 
лла. 
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VZ-200 BUG 


To the У2-200 hackers 
among us this short series 
of program statements 
crashes the VZ-200 (Version 
2.0). 


10 №1 : INPUTS: FOR 
Р=1 TO S: N=N* 
Р/(Р+1) : ? №; : NEXT: 


А Рс Ар. 85 


ei дыны == = 


This month we would like to 
bring your attention to some bugs in the 
Microsoft Basic interpreter as included 
in the Model l. Users of the CoCo and 
VZ20OO might like to try and see if these 
bugs are also present in their 
computers. 

Firstly, there is a problem with 
BASIC's handling of the “raise to the 
power'' function. Enter the following 
program into your computer and ‘RUN’ 


10 FOR Х= 1 TO 15 
20 PRINT 2/х 
30 NEXT 


The resultant printout will be as 
follows:— 
2 


4 
8 

16 

32 

64 

128 
256 
512 
1024 
2048 
4096 
8192.01 


16384 

32768 

Whilst the above problem prob- 
ably won't occur all that often, it is a 
good idea to be aware of it. The same 
applies to the following bug. 

RND(X) can return a value of 
X4 1 when X is a power of 2. In cases 
where RND(O) is just under the value of 
one, when multiplied by X, the product 
is rounded and this is where the pro- 
blem occurs. For instance, A = RND(16) 
can return a value for A of 17. To get 
around this, use the following:— 

10 A=RND(16) IF А> 16 

THEN 10 


——M7 


RUN 
INPUT 23 twice and the 
second time round the 
machine goes crazy. 
W Tritscher 


.S. If you pay me for the 
abel кыр it and send it 
to the person who pro- . 
vides the ROM-patch 
routine. : 


V. (4) : 97 


VZ bug 


| hope you haven t com- 
pleted a review of the Dick 
Smith У2-300 because it 
has a bug in the firmware 
(the same as the VZ-200). 
If one RUNs, (then 
INPUTs 29), the following 
- - | series of statements, the 
computer will crash. 
10 N = 1 : INPUTS : FOR 
A=1TOS:N=N+ 


1⁄4 +A): ? №; : 


NEXT : RUN 
I first became aware of 


this fault at the 4th APC 
Show held at Centrepoint in 


Micha - 3o (s) Avy, 34 p 3-4, 


Sydney earlier this year and 
informed Dick Smith. 
However, when | repeated 
the test on a new VZ-300 
the results were the same. 
Dick Smith is therefore sell- 
ing the VZ-300 with bugs. 
W Tritscher 
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The next bug can be found if 
you try and use the expression PRINT 
VAL ("96 ") in your program. Whenever 
you have a 96 sing in a string to be con- 
verted by VAL you will get a syntax er- 
ror. This bug also appears in the Model 
ІІ ROM. To avoid this error in Disk 
Basic use the following routine:— 

1000 | = INSTR(X$S, "96 ") 

1010 IF | THEN X = VAL 

(LEFTS$(X$,1— 1) ELSE 

X = VAL (X$) 

Non-disk users should use the 
following:— 

1000 FOR І- 1 TO LEN(X$) 

1010 IF MIDS(X$,I,1) = "^ 96 " 


THEN 1040 

1020 NEXT I 

1030 I= LEN(X$) + 1 

1040 X = VAL(LEFT$(X$,I — 1)) 

This final bug also appears in all 
versions of the ‘Level Il’ ROM. Enter the 
following program and ‘RUN’ it:— 

10 INPUT A£ 

20 A#=INT(A#) 

3O PRINT A£ 


If you were to enter — 56320 in 
answer to the prompt, the computer 
would come back with a result of 
— 56576. To explain, when taking the 
INT function of a double-precision 
number which is evenly divisible by 256 
and is less than — 32768 one extra bit 
is turned on when processing the 
number which is subsequently reduc- 
ed by 256, 512 or some other power 
of 256. To avoid this add the following 
filter to your program:— 

100 A# = SGN(A#) 

*INT(ABS(A#)) 

The first bug was mentioned 
originally іп "80-05" The rest of these 
bugs were first mentioned in ‘The Alter- 
nate Source’. 


(eee ae, ee) 


VZ-200 trace 


In the July edition of APC, 

J Williams suggested a 
method for printing a mov- 
ing message across the bot- 
tom of the Comodore 64 
screen. | modified this for 


‚ tracing function for the 


35 A$=MID$(A$,2) + 
LEFTS (A$,1):GCTO 25 
A friend also told me of a 


№2-200: 

РОКЕ 31003,175 starts 
trace function and prints 
line numbers 


APC s(s) Bw з 
Р. 44. 


РОКЕ 31003;0 disables 
this function. 
The only problem is with 
MODE(1), the screen returns 


the VZ-200: 
5 CLEAR 1000 
10 A$=“PUT MESSAGE 
HERE":REM LET А$ BE 


MESSAGE to MODE(O) to print line 
15 PRINT@480,” " numbers and you don't get 
20 PRINT LEFT$(A$,31); to see what is happening in 


PRINT CHR$(27):: REM high-res graphics. 
MOVES CURSOR UP 
FOR I=1 TO 40: 


NEXT:REM: DELAY Jav Batterson 


— 


the same for TRS-80 anq 
System 80 computers bu 
what readers might find 
interesting is the way it is 
written in ROM viz: 


Trace funcion 


Jay Batterson's report on the 
trace function for the VZ- 
200 is interesting — it is 


1DF7 
1DF8 
1DF9 


1DFA 
1DFB 
1DFC 
TRON calls 1D7 and reads 


LD A, 175 
LD (16667(, А 
RET 


TROFF calls 1DF8 and reads XOR A 
LD (16667), А 
RET 


AR Breffit 


Арс s(n) No. 34. 
Р hs 


VZ-200 
correction 


In the August issue of APC, 
Jay Batterson submitted a 
short program for printing a 
moving message across the 
screen with a У2-200. I 
tried this program and it 
didn't work. | was a bit dis- 
appointed that you had 
published it without testing 
it first, so 1 left it alone for a 
while. 

Recently | had occasion to 
use my computer for a 
message on the screen, so 1 


dug out the August issue 
and played around with the 
program until | found what 
was wrong with it. 

So here is the same pro- 
gram with modifications to 
make it function: 


CLS 

A$=""YOUR MESSAGE" 

PRINT @ 480, 

LEFT$(A$,31); 

PRINT CHR$(28); 

FOR 1=1 TO 60: NEXT 

A$-MID$(A$,2) 
“Н.ЕҒТ%(А%,1): GOTO 20 
| know this опе works. 


J Kelly 


Арс s(n) Nov, ва. 


р. 125, 


VZ290 Input ` Dota + Paridis 


lf you are using programs with From Paul Vowles comes this of the best programs wc've seen so 
, DATA lines, why not use the VZ200 program to produce, amazing far for the VZ200 Colour 
capability by a subroutine that will pictures of 3D pyramids on your Computer! 
y p 
г new data to create revised data VZ200. Without doubt, this is one 
lines, as follows: 
100 DATA 56 
à 
110 INPUT A 10 REMARKASLE PYRAMIDS 130 COLOR 7,1 
120 READ B 15 REM BY PAUL VOWLES a. چ‎ 140 ON=63+8/210K=(63+8/2)-(B/2.5) 
130 C=A+B 20 CLS:INPUT "PYRAMIO HEIGHT*;H 150 X2-0Ki1X1-ON:GOSUB 1000 
140 PRINT C 22 INPUT "LENGTH OF ВАБЕ";В 160 X1=63-8rGOSUB 1000 
150 PRINT 100 DATA' C . 25 028/2 170 Y1«80:GO8UB 1000 
. 30 IF B«1 OR B583 OR HCO OR H»60 THEN 20 180 X1«0N1GO0SUB 1000 
š 40 CLSI#CDE(1)] COLOR 6,118ЕМ CYAK 180 FOR 2=1 TO BOOO:NEXT Z 
Now CSAVE and the next time the 50 DERE AB) 200 INPUT "AGAIN"; AS 
program is used (once you have 55 DU-G0-H:0M»63-H 210 IF LEFTs(AS,1)="Y" THEN 20 
moved the cursor up to the last $7 DX«80-INT(H/2.5] 220 END 
printed line and entered) the new’ 50 Yi-0UiX1i-OLiY2«60:X2«62«0:G05UB 1000 1000 SIF X12X2 AND Ү12Ү2 THEN S41 
data will bein fh 65 DXsGD-INT(H/2.5) 1010 БЕТ(Х1,Ү1):БЕТ (X2,Y2) 
ata wi ein the program, 70 Y1s60:X1sO0M:GOSUB 1000 "4015 YeY1iN»1:IF Үл«Ү2 THEN А4ж0:6010 1030 
` | 80 Ү1=0Х:Ү2=0Х:60508 1000 1020 А1-(Х2-Х4)/(Ү2-Ү11:1Ғ Saa THEN А1»-А1 
With а FOR/NEXT loop, the во ғоз zəY1 TO 60: SET(X1,Z) 4030 FOR X=X4 TO X2 STEP S 
theory can be applied to extensive 95 SET (X2,Z):NEXT 2 1035 IF X<0 THEN X= 
progrems, For example you can use 100 X2=DL:Y1=60:Y2=DU:GOSUB 1000 1040 IF Ү<С THEN Y=G 
5 d жака кы :110 Y1=DX:GOSUB 1000 : 1050 SET(X,Y] i Netir1 
it то update top scores in games 420 xX4=63+0;GOSU8 1900 - 1060 IF A100 THEN ҮкҮ1+Ң/А1 
programs, or to undste а budget 1079 NEXT XiRETURN 


program, . 


LI 
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ү2200 m 
Cutting 
the 
margin 


By L. Clarke & A.R. Hill 


These hints may help you shorten a 
line which is marginally too long to type 


into the 64 character input buffer (ie,. 


exceeds two lines on the screen). 

The word, ''PRINT'' may beenteredas 
a question mark (?) saving four character 
spaces. The word, “REM” or “REM”, 
may be replaced by an apostrophe ('), 
saving either two or three character 
spaces. 

The computer will convert the (?) to 
the token for “PRINT” when it is stored 
in the memory, so that when the line is 
listed, it will appear as ‘‘PRINT’’. If the 
line then exceeds 64 characters on the 
Screen, it will "wrap around” onto the 
next line, but wil! still function normally. 
Of course, the on screen editor uses the 
input buffer, and any attempt to edit a 


Function No How to Use 


` RANDOM1 3416 
. POKE31469,134 


DEFINT 153 1#A,B 
РОКЕЗ1469,153 


` DEFSNG 154 1#С,0 us 
POKE31469;154 : 


оета! 155 14, ко ER 
РОКЕЗ1469, 155 


ON S360 3 TU 
22222 РОКЕЗ1469,1617 


‘ERROR `'158 HH 
ME 2 POKE31469,161 no”, 


SORES 1570) 158 . 


SUME. 158- ; 
Wes. he 14100 = 
. 38100 NEXT .' 
а РОКЕЗ1469, 159 


DELETE 18234150300 | ы 4 
TOKE dna: 182. 


183 1# ? É 
POKE31479, 
` 383:RUN 


AUTO 183 19500, 20 
Y #OKE31469, 
ды з 33: :RUN 


эл, S POKE30945, 175 . 


Р 
f 


MUTO 


tfound. 


Description 


Makes RNDI 
random. 


. Defines all variable starting with 
“A” or В” as being integers. 


“Defines all variables starting with | 
“С“сог “D” as being single 
^" "precision 16/7 digit floating: 


2%. Defines all Variables starting wifh 
„7 ЕЕ” ог “F” as being double 
< „precision (16/17 digit floating). - 


Used with ON GOTO, ON GOSUB . ` 
-. зог ON ERROR (see below). ; 


Used as Peg ERROR" GOTO line 


A ғ. Ағ” i 
-^ After error, return to error point. ` ` 
‚ After error, GOTO 100. 
After error, return to the line after 
*the one producing the error. 


“Deletes lines 150 to 300 inclusive. 
"Both lines 150 & 300 must exist. 7 


| "Automatically prints line numbers ` 
Btarting at 10, increment of 10. 


` Automatically prints line numbers 
“starting at 500, increment of 20. 
+ AUTO will print any existing lines . 


-H the AUTO function was haked 3 É а, ү, 
‚ with[BREAK], it will now continue 1 for 
sfrom that point. ? 


line exceeding 64 characters will result іп 
the loss of all text after the 64th 
character displayed on the screen! 

The following functions must be 
POKEd into an existing line in à BASIC 
program. 


Example 1: 

If the first line of a program is used (eg, 
line number 1), then the first memory 
location past the line number is 31469. 
This does not change regardless of the 
number of digits in the line number 
because all line numbers are stored in 
memory as a two byte code. 

Example 2 

If you want use any of the following 
functions in the middle of a program — 
just type up to the place where you wish 
to insert «Һе function, place a dummy 
character in that position, and press. 
[RETURN]. 

Immediately {with no line number) 
type in the following 


PRINT PEEK(30969) + 256 * PEEK(30970) 
-4. 


This will give ‘you the memory location 
of the last character you typed into the 
last program line (in this case the dummy 
character). Memorise this number (write 
it down!) then finish typing in the BASIC 
line, continuing immediately after the 
dummy character. 

When you have finished typing in the 
line, LIST it and check it is correct, 


) statement more VARPTR 192 1#(X) 


POKE31469,192 


STRINGS 196 1PRINT#(12,45) 
POKE31470,196 


MEM 200 PRINT? 


71239182 
одо uz 


` 7241 Mz 


218 1PRINT#I(A) 
'POKE31470,218 


"7218 1PRINT#(A $) 
^. POKE31470,218 
^ POKE31469,239 


POKE31 469. 240 


` = 'POKE31469,241 
‚242 1A=#(N) ' 
- -POKE31471,242 
22194 PRINTF ` 
275 POKE31470,184 
195 IPRINT& ` 77 
: ` ` POKE31470,195 


because once you have POKEd the 
function code into the memory location 
in which your dummy character is 
stored, you will not be able to edit that 
ine! 

You may now POKE the function code 
into thë memorised location which holds 
the dummy character. If the memory 
address should exceed 32767, it is first 
necessary to subtract 65536 to reduce it 
to an integer for the command to 
work. 

It is assumed you have made no 
changes (insertions or deletions) to the 
program before the dummy character, 
because these would have changed its 
memory location. 


———— -——— L < -— 


Used to locate the memory address 
„ОЁ a variable. 

Will print 12 asterisks ''*" . 
{maximum length of string = 256 
.Characters). 

Tells the amount of unused memory 


‚ POKE31470,200 left. 


Tells the number of unused bytes ` 
`left in memory. ; 


Telis the number of unused bytes 
left in the reserved string space. 


Removes all digits after the decimal 
point. 


“Converts numeric variable from 
"double to single precision. 


і Converts numeric vanable from 
` single to double precision. 


Removes all digits to the right of 
the decimal point. Doesn't round 
-: down negative numbers. 


Е ‘Returns the line number trom which 
program branched to error routine. 


: à р Returns 8 value related to the type 
о! error which last occurred. 


- "These functions may be performed either with 

-er without a line number. 

“For TRON (Trace ON) 

‘For TROFF (Trace OFF) just POKE 31003,0 
“Тһе audible "beep'' produced when a key % 
essed can be controlled. , 

ВЕЕР -ОМ just 

"For ВЕЕР OFF just POKE 30779,0 


just POKE 31003,175 


POKE 780779, 32. 
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Following on from 
a previous article 


— ЕТ! March 1984) 
this article outlines a method 
of adding commands 


(“Моге functions for the У2200” 


EXTENDING | 


to the standard VZ200 BASIC. ^ 


Steve Olney 


THE PREVIOUS article showed how to 
unlock several *hidden' functions contained 
in the VZ200 BASIC ROM by entering the 
commands indirectly via a BASIC program 
itself. This approach meant that it was nec- 
essary to run the BASIC program each time 
the function was needed. This is very incon- 
venient and, as was hinted at in the previous 
article, a more elegant (and more conven- 
ient) approach would be to have the added 
functions accessed as if they were part of the 
original command set. 

This article gives a method by which this 
can be done and gives a practical example 
by making the AUTO command part of the 
legal VZ200 BASIC command set. 

The machine code necessary to achieve 
this is quite short because, as indicated in 
the previous article, the code which does 
the bulk of the work is already resident in 
the VZ200 BASIC ROM. It is only neces- 
sary to get the BASIC interpreter to recog- 
nise the auto line-numbering command 
(AUTO X. Y) as legal and then jump to the 
relevant code in ROM. 

The method outlined here only applies to 
adding commands to the ‘immediate execu- 
tion mode'. (i.e: typing in commands with- 
out line numbers). It does not deal with 
commands that are to be used within 
programs. 


How it works 
Those who are only interested in the end 
result of adding the AUTO command to the 


` legal commands can skip this section and go 


straight to the section dealing with entering 
the program. Those who are interested in 
how it works — read on! 

The reason why it is possible to add 
commands to the standard VZ200 BASIC 
command set (thereby extending it) is that, 
in common with some other BASICs, at 
various points in the machine code in ROM, 
calls are made to locations in RAM. This 
makes it feasible to modify and/or extend 
the code at a later date. A common 
example is where a disk system is added 
later. An extended or enhanced BASIC can 
be implemented by downloading extra code 
off disk to the relevant called location. If all 
the code was executed in ROM then this 
could not be done. 

In a non-disk system (such as the present 
VZ200) these called locations are usually 
initialised to 'OC9H' (H means hex address 
of location), which is Z-80 machine code for 
Ret. So normally, when these RAM loca- 
tions are jumped to via ‘calls’ from the 
BASIC ROM, execution returns immedi- 
ately to the BASIC ROM via the ‘Ret’. 

Now, because the Ret's are in RAM, it is 
possible to change the Ret to a jump to 


bola 


extra code which will be executed before 
control is returned back to the BASIC 
ROM. 

In the VZ200, all the calls from the 
BASIC ROM to RAM are to locations 
between 7952H and 79E2H. One of these 
exits will be used to add Auto X,Y to the 
legal command set. 


The BASIC interpreter 

Leaving the ROM exits for the moment, 
consider what happens when an ‘immediate 
execution' command is entered. While the 
text is being typed in. the character codes 
for each key-press are being entered into a 
text buffer at around 79E8H. When Return 
is hit, the interpreter looks at what has been 
entered into the buffer. Scanning from left 
to right. it looks for ‘reserved words’ (words 
set aside for commands e.g: Print, List 
etc.). The BASIC ROM contains a list of 
these reserved words beginning at 1650H 
and ending at 1820H. This can be revealed 
by an ASCII dump of this block of memory 
(the first letter of each reserved word has 
80H added to ASCII code which wil] result 
in garbage for that letter.) 

The interpreter scans the text trying to 
find one or more of these reserved words. 
when one of these is found the reserved 
word text is replaced by a single byte ог» 
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‘token’ (80H to OFBH). The token is the 
offsct into the list where the reserved word 
is located and is used as an index into 
another table which contains the address of 
the machine code for that command. 

If the text cannot be resolved into 
reserved words or text which belongs to the 
reserved words, then a Syntax error mes- 
sage is generated. The trick is to intercept 
control of the interpreter just after the 
reserved list has been scanned and add code 
to re-scan the text to see if it contains the 
new command Auto X.Y. 

By good fortune (or good design), 
immediately after scanning has been done 
there is a call to RAM (to 79B2H). The Ret 
(0C9H) at 79B2H is changed to a jump to 
extra code which will re-scan the text buffer 
for Auto and if found, will replace the text 
with the relevant token. 

Because only the reserved word list is dis- 
abled (bv deleting Auto from it), once the 
Auto command text has been replaced by 
the correct token (0B7H), the following 
interpreter code will recognise the token 
and accept it as legal. 


Entering the program 

The machine code program is entered via a 
BASIC program (Listing 1) which POKEs 
the code into RAM from Data statements. 


The BASIC program locates the machine 
code to high memory after resetting the 
BASIC top-of-memory pointer to below 
where the code will be POKEd. By this, the 
machine code program is located out of the 
way of any BASIC program to be entered 
later. This action is independent of memorv 
size. 

The machine code listing is shown for 


reference only. All that is necessary is to 


enter the BASIC Program, save it on tape, 
and from then on just run it before you start 
entering your BASIC program. If all is well. 
control will be returned to the Ready level 
and. unless the machine code is overwritten 
by POKEs or the VZ200 is reset, the Auto 
command is now part of the immediate 
command set. 


Auto command syntax 
The form of the Auto command is ‘AUTO 
X.Y' where X is the starting line number 
and Y is the increment beteen line numbers. 
Entering AUTO X will give a starting 
line number of X and a default increment of 
10. while entering AUTO, Y will give a 
default starting line number of 10 and an 
increment of Y. AUTO by itself will give 
both the line number and increment a 
default of 10. 


To exit the Auto mode. hit ‘CTRL 


2 of 3. 


BREAK’. Entering the Auto mode with 
line numbers of statements already entered 
can be a. useful single step checking and 
editing feature (see previous article). 


Adding other commands 
This method can be used for ‘unlocking’ 
other commands ‘hidden’ in the VZ200 
BASIC ROM. As shown in the previous 
article, the commands TRON and TROFF 
are also accessible. In the time since that 
article was submitted it has been found that 
the code for a delete command (DEL X-Y), 
with the same syntax as the LIST command, 
is also present in the VZ200 BASIC ROM. 
The listing for a BASIC program that 
‘unlocks’ the ‘hidden’ code for the AUTO, 
TRON, TROFF and DEL commands is 
available from the author. It is of the same 
form as the program described here. 


What next? 
The above four extra commands have 
proved to be very useful and have resulted 


in significant time-savings in writing 
BASIC code. Other useful commands 
would be REN (line re-numbering), 


MERGE (merging small sub-programs on 
tape into one program — difficult, because 
it appears that the VZ200 CLOAD always 
loads a BASIC program to the location in 
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memory from which it was CSAVEd). DH 
and HD (allows decimal to hexa-decimal 
conversion, and vice-versa). These would 
be much more difficult to implement as 
there is no code present in the VZ200 
BASIC ROM, so they will have to be writ- 
ten from scratch. 


Cautions 

Firstly, as this program uses code in the 

Version 2.0 BASIC ROM, users with other 

versions (if any) will have to check to see if 

the program works with their version. 
Secondly, you may have already found 


a Machin rge Listin SKIP INC HL 
NEXT LD A, (HL) 
i FRIAR 3-4 ЗЕ ЗЕ TEE ЗЕ ЗЕ EET AIGA ЗЕ SIE SIE ЗЕ TET EFI TEE OR А 
г ** ж JR Z,ENDLIN-$ 
š %% BASIC AUTO LINE-NUMBERING UTIÜTY FOR THE У2200 ++ cP 28H 
y *+ COPYRICHT (C) 1984 BY STEVE OLNEY жж JR 2,5КІР- 
ж- 268 Terrace Rd. North Richmond 2754 ** LDI 
t жж ік NEXT-$ 
Line in text buffer 


MACHINE CODE PROGRAM 


Trek ét fH EGER PEERLESS А HHE ; 


that during normal program entry, occa- 
sionally the cursor will skip a linc after you 
hit Return. This is of no real consequence 
— until now. Unfortunately the auto line- 
numbering code doesn't like this and 
responds by displaying the next line number 
as it should. but then positions the cursor at 
the beginning of the next line. Any BASIC 
statements or text entered on that fine will 
be lost. 

Each time Return is hit for a new line 
number, check to see that the cursor is on 
the same line as the new line number. If it 
isn't, hit Return again. This will skip to the | 


4 ; and register 'С' 


(POKE'd trom tke Basic program) i 


next line number. Do this until the cursor is 
positioned on the same line as the new line 
number, then it is OK to enter statements. 
Unless you are fussy the missed line num- 
bers should not be a problem. Of course, 
you can exit the auto mode (CTRL 
BREAK) and restart so as not to miss a line 
number. 

A printed listing of a larger program to 
add the AUTO plus TRON. TROFF, DEL 
commands to the legal command set can be 
obtained for $5.00 from the author at: 200 
Terrace Rd, North Richmond NSW 2754. 
Remember YOUR address! (pref. SAE) б 


Adjust HL to next byte 

ібеб byte from text butter 

tis it zero ? 

31% zero then end of 

31s ıt a space 7 

s 3Yes ? Then skip to next byte 
iNo ? Then transter byte 
3*orward and continue 


line 


must terminate with three zero bytes 


must contain the new line length 


ENDLIN LD (DE),A Terminate line with three 
Actual origin depends on the size of the memory in the INC DE ; zero bytes. 
У2200 used. LD (DE),A 
INC DE 
TAPT ORG ввевн LD (DE),A 
LD A,C iNew text byte count-1, add 6 
; Тәуе registers to be uses CPL бо complemented negative no. 
H ADD A,B6 бо adjust to line lengthtl 
REGSAV PUSH AF LD (LINLEN) A jand store it 
PUSH BC i 
PUSH БЕ 4 Restore registers 
PLUSH HL ; 
Pus In RESREG POP Ix 
; POP HL 
i 7515 code scans the text butter for the 'AUTO' command. POP DE 
š POP BC ро this Just to empty stack 
AUTOSC LD в,05 ;Number of bytes to scan POP AF 
LD 1“,АОТТХТ iPointer "AUTO" text table LD BC, (LINLEN) ¡Restore BC with new line 
5САМ1 ІМС HL 3Ай)5б to next byte in buffer LD B, OOH ¿length on return to ROM 
LD A, (1х+69: ібеб first byte of table RET 
cr CHL) ;Compare with byte іп buffer ; 
JR NZ,EXIT-9 31$ not equal then exit ; Auto command not found so we return to ROM without 
INC Ix {Моуе to next byte in table ; altering text or 'C' register. 
DINZ <САМ1-% 3Loop back until 3 bytes done ; 
; ЕХІТ РОР Ix 
$ Execution drops through to rere if al! bytes match. POP HL 
î Тһе 'AUTO' text ıs replaced with its token (@B?hex) and POP DE 
i the rest cf the text (operands f any) is closed up behind POP BC 
: the token. РОР АҒ 
i RET 
FNDAUT PUSH HL %бауе end of "AUTO" іп buffer i Text table for the 'AUTO' command. Because the 'TO' іп 
DEC HL ;Move back to beginning of ; "AUTO' is a reserved word, it will have already been token- 
DEC HL $'AUTO' text іп buffer i ised. The token for 'TO' is 8BDH. 
LD (HL) ,£B?H Replace first byte with token Н 
LD BC, 8888H ifor ‘AUTO’ AUTTXT DEFB NAP $ASCII "А" 
POP DE jEnd of ‘AUTO’ text in buffer DEFB "Ш" sASCII "U" 
Ex DE, HL iHL=end of 'AUTO',DE=token DEFB еврн ; Token far "ТО" 
INC DE sAd)ust DE to next byte LINLEN DEFS 2 
LISTING 1 268 POKEST*I,D 
8 REM JERI HEE 265 С5=С5+р:' UPDATE CHECKSUM TOTAL 
Tg- ^ 3d USE THE SHORT FORM *'* FOR THE REST OF THE *REM"S ## 278 NEXTI 
28 * ++ + 275 ІЕС5< ›9861ТНЕМРКІМТ "- ERROR IN DATA ENTRY -°:ЕМО:` CHECKSUM 
28" 4H BASIC AUTO LINE-NUMBERING UTILITY FOR THE У2200 H 288 FORI=1TO3:READLB,OS: Т5=7м+05:' BECAUSE PROGRAM IS RELOCATED 
ag ' ++ COPYRIGHT (C) 1984 BY STEVE OLNEY ж 298 MT=INT(TS/256) :LT=TS-MT#256: ' ABSOLUTE LOCATIONS NEED TO 
sø ' ++ 288 TERRACE RD. NORTH RICHMOND 2254 ++ 388 . POKEST*LB,LT:POKEST*LB*1,MT:' LOADED 
eg ° н. "AUTOBAS* ТАРЕ FILE 417-B 9/5/84 VERSION 1.2 жж 510 МЕХТІ 
28“ + ** 365 ' ALTER *RET* AT 29B2 HEX TO JUMP TO START OF MACHINE CODE 
ве ° JOOUOHOÓHOPHHHOPHHÓHOHEIOERIEIUIEHÓIOHIHERRHIERIHIOIOHIOIOOOHOO HEIC 378 РОКЕ51155,1.1:Р0КЕ51156,М1:Р0КЕ51154,195 
9g * 588 РОКЕ50862,249:РОКЕ50865,0:" LOAD CALL TO “READY” ROUTINE 
188 RB=108: TM= (PEEK (38897) *PEEK (38898) #256) -RB:'GET ТОР OF 398 x-USRIgi:" AND SO TO IT 
118 MS-INT(TM/256):LS-TM-MSX256:" MEMORY AND MOVE 395 ' DECIMAL EGUIVALENT OF MACHINE CODE PROGRAM INSTRUCTIONS 
120 POKE38897,LS:POKE38898,MS:* DOWN 188 BYTES 408 DATA2Z4S, 197,213,229, 221,229, 6,3, 221,33, 79,8, 35, 221,126,8 
288 CLEARSS:* RESET BASIC STACK PTR 418 DATA19B, 32,53, 221,35, 16,295, 229,93, 43,54, 183, 1, 8,8, 209,235 
238 ТМ= (PEEK (39897) +РЕЕК (39898) K256):* NEW TOP OF MEMORY 428 DATAI9, 35,126, 183, 48,8, 254,32, 48, 247, 237, 168, 24,244, 18419 
235 MI=INT((TM+1)/256):L1=TM+1-M1#256:' NEXT LOC'N ABOVE T.O.M. 450 DAT AUG 19. Le LA 6711985 6s SB S250 I 221 2252252094 09S 
248 ST-TM:IFST:32767THENST-ST-65536:" START OF M/C PROG. -1 448 DATA2491,237,75,82,8,6,8,281,221,225, 225, 209,193,291, 281 
258 FORI-1TO82:" LOAD 82 BYTES OF MACHINE CODE INTO RESERVED 450 DATAGS, 85, 189 
255  PEADD:* AREA ABOVE BASIC TOP OF MEMORY 460 DATA11,82,58,83,68,83 
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TRON/TROFF 
function for 
VZ-200 


When debugging a Basic 
program, it is frequently use- 
ful to see exactly what 
‘sequence of instructions the 


computer is interpreting. 
This is the function of the 
TRON (Trace ON) command 
found in many versions of 
Basic. 

This command is not, 
however, directly available to 
the VZ-200 user and must 
be executed by POKEing 
directly to the screen. 
POKE 31003,173 enables 


A Pc. 


the TRON command 
РОКЕ 31003,0 disables the 

command (enables 

TROFF) 

The TRON function 
executes the program as in 


ı normal execution, but dis- 
| plays each line number 


within brackets as it is 
executed. This Trace is use- 
ful in following the program 
flow during debugging, 
especially in the case of con- 
ditional GOTOs or GOSUBs. 
Normal display data 
generated by PRINT or other 
commands will be inter- 
spersed with the Trace line 
numbers. 


$ (n) Nov. 84. 
Р. 28-4 


Тһе РОКЕ values сап Бе 
entered directly from the 
command level and then 
RUNning the programs, ог 
they can be incorporated 
within the body of the pro- 
gram (especially useful if 
only a section of the pro- 
gram requires debugging). 

The use of the CTRL and 
BREAK keys can be used at 
any time to stop the display 
for scrutiny. Entering the 
CONTinue command will 
restart program execution. 


І Thompson 


МОМ-200 is a machine code monitor 
program for both 8 and 24k VZ-200s, 
featuring relatively easy data entry, 
screen listing of memory, execution of 
routines and provision for dumping 
memory to a printer. Also included are 
utilities for decimal to hex conversion 
(and vice versa) as well as a block 
memory move facility. All input is in 
hexadecimal. 

After CSAVEing and RUNning the pro- 
gram, you will have the following options 
available: 

(E) Enter Data: data is entered eight 
bytes at a time in the format 
"ММММ dd dd dd dd dd dd dd dd’ 
where NNNN is the location of the first 
byte to be entered, and dd represents a 
single byte. Hit RETURN after the last 
` byte, and note that the spaces are essen- 
tial for successful operation. Data entry is 
not accepted if you specify a ROM loca- 
tion (obviously), system RAM, program 
RAM or the location of the block move 
routine. After entering the first eight 
bytes, you may choose to repeat the pro- 
cedure or, if entering data in sequential 
locations, simply hit RETURN when the 
input prompt appears; the next logical 


memory location is automatically 
calculated and printed for you. The entry 
format remains the same whichever 
method is used. To abort data entry, hit 
“А, and to return to the option menu use 
‘=, whichis the universalreturn-to-menu 
key throughout the program. 

(V) View Memory: after selecting the 
'View' option you will be asked for start- 
ing and ending locations (which default 
to O and 65528/FFF8H respectively if 
none is specified). Again, the 'A' key may 
be used to abort. 

(R) Run: in the execute mode you will 
be asked to confirm your intention by 
typing 'R'. After entering the starting 
location of your routine, and assuming 
there is provision for a RET to Basic, you 
will be returned to the main menu 
after execution. 

(D) Decima-Hex апд (H) Hex- 
Decimal: simple to use, just enter the 
number to be converted and hit 
RETURN. Press RETURN to use again or 
'— to exit. 

(M) Move Memory: you will be asked 
to enter the source, destination and 
length of memory to be moved, and are 
returned to the main menu on comple- 
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MON-200 


by Chris Stamboulidis 


tion. The code for the routine is POKEd 
into memory from 29200/7210H 
onwards, which is part of the video RAM 
used by the hi-res screen. This doesn't 
rule out the use of MODE (1) as the 
routine is POKEd into place when 
needed. 
(P) Printout: if you require a hard 
copy, ensure that your printer is connec- 
ted before power-up. The routine was 
written for the РР-40 Printer/Plotter, 
although any printer should do. Note that 
line 4030 sets the printer to 40-column 
mode and selects black ink. Simply 
replaceing this with the appropriate 
instructions for your printer. After pro- 
viding the code to be dumped with a 
name, hitting RETURN will enter the 
View mode where operation is as des- 
cribed here. 
(X) Exit: you will be asked to confirm 
that this is your intention — 'YES' is the 
only way out. 

Note that the following should be 
typed in with inverse text: 
— line 10 everything within the 

quote mark 
— lines 20-50 : the letters inside the 
greater/less than symbols. ` 
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А 2403-214 
s SE 


MON-200 1977784 = 
an A MACHINE CODE MONITOR 2 
ы FOR THE U2-209 = 


Hr 
5 


DATA 2372, 25, 20,114, 237,91,18,114,237, 1 
02,16,114,232,126,201 
8 CLERR200 :GOSUB20000 


о-- о 


10 CLS:PRINT" ЖЖЖ M O N - 2 8 0 xxx- 
":Pr-0 

20 PRINT@134,"<X> EXIT" :PRINTTAB(6)" <E> 

ENTER DATA" 

3@ PRINTTAB(6)"<U> UIEW MEMORY" :PRINTTAB 

(6)"4R» RUN" 


40 PRINTTABC6)"<D> DECIMAL->HEX" :РКІМТТА 
BCG)" <H> PEX-»DELIMBL" 

50 PRINTTABC6)"<mM> MOVE MEMORY" :PRINTTAB 
CO) <P> S PRINTOUT 

60 K$-INKEYS$:K$-INKEYS:IFK$-""THENOO 

20 1ЕК$="Х"ТНЕМ1@@@@ 

80 IFKS-"E'"GOSUBIO00 

90 ІЕК%= "0" 6050820606 

100 IFK$="P'G0SUB4000 

110 ІРК%-"К"ТНЕМЗ000 

120 IFK$-"H'THEN200 

130 IFK$="D" THENS@@ 

140 IFK$="M" THEN2000 

150 GOTO6@ 

200 CLS:PRINT: INPLT"HEXt" ;H$:IFH$z"-"THE 
N10 

205 GOSUBSGBA :IFEF ZTHENPRINTERS :60Т02@@Е 
ESEFRINT"DECH- ;D 

210 Q$-INKEY$:Q$-INKEYS: IFQ$-""THEN210 
220 IFQ$-"-"THEN1O 

230 IFQS$-CHRS$C13)THEN200 

240 6070210 

500 CLS:PRINT:INPUT"DEC#" ;D$: IFD$-"-"THE 
N10 

503 IFD$<"@"ORDS>"S"THENPRINTERS :6070500 
505 D-URLCDS$):GOSUB6000 : IFEF X THENPRINTER 
$ :GOTOS00 

508 РКІМТ"НЕХ#=" ;H$ 

510 Q$=INKEY$ :Q$=INKEY$ : IFQ$-""THENS10 
520 IFQ$-"-"THENIO 

530 ІҒ0%-СНК%С(132ТНЕМ500 

542 6070510 

1000 ГІФ:РКІМТ"ЕМТЕК DATA + <-2-ПЕКЫ <A> 
=ABORT ":Мх=0 

1010 INPUTED$: IFED$="-"THEN1@ 

1020 IFED$="A" THEN] OOO 
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1030 ІҒЕО%=""ТНЕМ1 100 
1040 IFLENCED$) <>28THENPRINTERS : 60701010 
1050 H$=LEFT$C(ED$, 4) :605085000:Мх=р :FORK 
Z=6TO27STEP3 

1060 Н%=МІ0%(Е0%, Кх, 2) : 605085000 :U-Mx + CK 
%/3-2) 

1020 IFU»32262THENU-U-FF 

1080 POKEU;D:NEXT:GOTO1010- 

1100 MN*=MN%+8 :0= Мх :GOSUB6000 :PRINTCHR$(8) 
3СНЕ%(222;"  "H$; 

1110 FORY*=1TO6:PRINTCHR$(8) ; :NEXT:GOTOI1 
@1@ 

2000 CLS:PRINT"UIEW MEMORY : <->=MENU <ñ 
>=ABORT " 

2010 INPUT" START" ;SU$:JFSU$=""THENSU=6 
:GOT02020 

2012 IFSUt$="ñ"THEN2000ELSEIFSU$='"-—"THEN1 
2 

2015 H$=SU$ :60SUBS000 : IFEF XTHENPRINTERS: 
50702010 

2018 SU=D 

2020 INPUT"Xx END . "3EUS:IFEUS-""THENEU-T 


4-1:50702030 


2022 ІҒЕО6-“а”ТНЕМ2000Е15ЕІҒб%-"-“ТНЕМІ 
2025 H$-EUS:GOSUBSO00 : IFEFZ THENPRINTERS : 
60702022 

2028 EU-D 

2030 CLS:PRINTF$:IFP*THENLPRINTLEFTS(FS, 
29) :LPRINTGS 

2040 FOR]=SUTOEUSTEP8:D=I:GOSUB600@:PRIN 
TH$;7: 7; 

2050 IFP*THENLPRINTHS 3": 

2060 IF1>32767THENOF =F FELSEOF = 

2020 FORJ*=@107 :0=PEEK(I+J% -OF 1 :GOSUBO00 
в . 

2080 PRINTRIGHTS(H$,2);:  "; 

2082 IFPXTHENLPRINTRIGHT$(H$,22:" “3 
2084 NEXT:PRINT"":IFPZTHENLPRINT" 

2085 IFPEEK(29120) O 32THENPRINTGO,F $ :PRI 
NT8422," " 

2090 1$-INKEY$:IS-INKEYS :IF 1$="" THEN2090 
2092 IF1$-"A"THEN2000 

2095 IFI$-"-"THEN10 

2100 МЕХТ:Рх-0 

2110 K$-INKEYS$:IFK$-" THENZ2110 
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2115 ІЕкФ-"А"ТНЕм2000 
2120 IFK$-"-"THENIO 
2130 GOTO2110 
3000 CLS:PRINT"EXECUTE : ¢->=MENU <R>=RU 
қ Ё 
| 3010 INPUT"START LOC";SL$:IFSL$-"" THEN3O 
40 
| 3020 IFSL$="-"THEN1Ø s 
3030 H$=SL$ :GOSUBSQQQ : IFEF xTHENPRINTERS: 
GOTO3040 
| 3040 PRINT:INPUT"ENTER <R> RUN" ;ам :IFAN 
$=" "ТНЕМЗӘ49 
3050 IFAN$="-"THEN1Ø 
| 3060 IFANS <> "R"THEN3040 
3065 М5-0/256:45-0-(256жМ5) 
3020 POKE30862,LS :POKE30863, 1S :X -USRCO) : 
| GOTO10 
4000 CLS:PRINT"PRINTOUT : «4-»-MENU 


| 4010 РЕІМТ"ж ENSURE PRINTER REABY" :PRINT 
іРх-1 
4020 PRINT"X*X ENTER ROUTINE NARME:":INPUTR 

| N$:RN$-LEFTS$SCRN$,18) 
4030 LPRINTCHRS$CI8):LPRINT"S1" :LPRINT"CO 
" SLPRINTCHR$(CI2) 

| 4035 INPUT"HIT «RETURN» TO PRINT";6NS$:IF 
RN$z"-"THENIO 

| 4040 LPRINT"MON-200 : 0 75RN$:G0TO2000 
5000 EFX*-0:D-0:LNX-LENCH$) : IFLNX2 4THENS@ 
50 

| 5010 FORIX-ITOLNZ:B$-2n11ID$CH$,1x.12 
9020 IFC(B$-»"Q"ANDB$-4"S9"JORCB$-»"A"ANDB 
$-Q"F"JTHENSO3O0ELSES050 

| 5030 Jx-RSCCB$)-48:IF JX» STHENJX-7JX-2 
5040 D-DX16*J4:NEXT :RETURN 
5050 EFX-1:RETURN 

| 6000 EFz=0:H$="" :IFD<00RD>FF-1THEN6600 
6010 22-0/4036:ПО-О-4036Ж22:0050В6500:2х- 
D^256:D-D-256xzx 

| 6020 GOSUB6S00:zzx=DZ16:D=D-16xzzx:GOSUB6S 
00 :2xzD:GOSUB6500 :RETURN 

' 6500 H$-H$*TIDS$CN$,2*x*1,12:RETURN 

| 6600 EFz=1:RETURN 


2000 CLS:PRINT"BLOCK MOVE : <+>=MENU 
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2005 RESTORE :FORIx=292061029220:REñDJz:P 
OKE IX, JZ :NEXT 

2010 INPUT"X FROM" ;SL$:IFSL$="-"THEN1@ 
2020 Н$=51 $ :505085000 : IFEFZ THENPRINTERS$: 
GOTO2010ELSESL=D 

2030 INPUT"X TO "jDL$:IFDL$="—-"THEN18 
2040 H$-DL$ :G0SUBSQ00 : IFEFZTHENPRINTER$: 
GOTO7@3@ELSEDL =D uM 

2050 INPUT"X BYTES" ;NB$:1IFNB$-"-"THENI1O 
2055 H$=NB$ : 5605085000 : IFEFZTHENPRINTER$: 
GOTO2050 

2060 МВ-О:Нх-51/256:6х-51-(НхХ%256) :POKE2 
9200, Gx :POKE29201,Hx 

2020 Hx-DL^256:Gx-D0L- (Нхж256) :POKE29202, 
Gx :POKE29203, HX 

2080 Hx-NB^/256:Gx-NB- (HxX256) :РОКЕ29204, 
Gx :POKE29205, Hx 

2090 POKE30862,22:P0KE30863,114 :X-USRCO) 
:GOTO10 

9000 IFLENCH$)J»4THENS100 

9010 6050850900 

9020 IFD»TMORD«29184THENS10Q 

9030 IFD»302196NDD«(PEEKC390923)*256XPEEK 
(30974) JTHENS1 00 

3040 IFD»291996NDD«29221THEN9100 

9050 EFx=@:RETURN 

9100 EFz=1:RETURN 

10000 PRINT@449, "АРЕ YOU SURE" ;:INPUTANS 
10010 IFAN$<> "YES" THENPRINT@4439, 55% :GOTO 
60 

10020 PRINT8449,SS$ :PRINT8449, "0, X, " :FOR 
0-110500:NEXT 

10030 CLEARS@:CLS:END 

20000 N$-'01234562898BCDEF " :EF 4-0:ER$-"? 
ERROR" :FF «65536 

20020 F$-'"LOC : +@ +1 +2 +3 +4 +5 +6 +2 


ABD (Ges coc pec iue сооро т 
:F$-F$46G$ 
20040 SS$=" 


20050 TM-PEEKC30892)*256XPEEKC30898) :RET 
URN š 
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LPRINTER 


By Hobert Quinn 


A РР40 printer program for the VZ-200, it allows you to use 
your VZ-200 as a typewriter, LPRINTING in upper case, lower 
case, normal or inverse print, and to LPRINT graphics. 


Instructions 


Switch on your PP40 printer plotter. RUN the program anda 
blinking cursor will appear on a black screen to indicate your 
start position. Type using any of the character keys on the 
keyboard by themselves or with the SHIFT key held down. 
The corresponding characters will print on the screen and 
LPRINT to your PP40 printer. 

LPRINTER starts upin normal uppercase mode. Press the 
CTRL key to shift to lower case LPRINTING; and press the 
CTRL key again to return to upper case LPRINTING. 

Hold the SHIFT key and press the X key to shift to inverse 
printing and LPRINTING: inverse LPRINTING is dis- 
tinguished from normal LPRINTING by underlining. 

A carriage return will operate automatically to start a new 
line when the end ofthe line is reached, though the end of the 
LPRINTER line (40 characters) will not correspond with the 
end of the screen line (32 characters). 

A carriage return can be accomplished any time by press- 
ing the RETURN key. 

Backspacing to the start of the LPRINTER line can be 
accomplished by holding the SHIFT key and pressing the B 
key. Everytime SHIFT and B are pressed the pen holder will 
move left one character. The screen cursor will backspace as 
well, but will erase characters it passes over. 

The screen cursor will blink a hash sign when the 35th posi- 
tion on the cursor LPRINTER line is reached and a hi-lo 
warning buzz will sound to indicate that you are nearing the 
end of the LPRINTER line. 

The VZ-200 supports sixteen graphic characters. 
LPRINTER LPRINTS graphic characters but does not uni- 
quely define every one of the sixteen. In the categories that 
follow the letters designate the letter keys by which (with the 
SHIFT key held down) the corresponding screen graphic 
characters are accessed. The number following each letter is 
the ASCII code for the graphic character. Then follows a line 
of the LPRINTER graphic character that defines those 
screen graphic characters. You may wish to refine the defini- 
tion of screen graphics so as to give each screen graphic 
character a unique LPRINTER character. 


5 REM LPRINTER FOR 92200 BY ROBERT QUIN 
N 
10 COLOR; 1:SOUND? , 2:CLS 


20 FORR-1TO2STEPO : IFPEEKC26825) =249ТНЕМЅ 


OUND2@, 1 :P-NOTP 

22 IFPEEK(26825)-2243THENLPRINTCHR$(13);: 
LPRINT:D-0:GOSUB320 

25 IFPEEK(26877)=251 THENK=NOTK : SOUND2O, 1 


BENSSSSESEEXEEEEERSEEEGU 
00000000000000000000 


ЫБЫЕБЕБЕЫБЕБЕЕЕББЕБЕБЕ 


Qua a uam mamma 


сш ЕЕ ЕЕ НЕКЕ 


ЕЗ ЕЗЕЗ ЕЗ ЕЗ ЕЗ ЕЗ ЕЗ ЕЗ ЕЗЕЗ ЕЗ ЕЗЕЗ ӨЗ ЕЗ ЕЗ ЕЗ 83 Б? 


BS8SSSSSSBQ8G88SS8SSGSSS8 


вовввввввввйввййвйвйййййй 


А СОРҮ subroutine is RUN from within the program Бу 
holding the SHIFT key and pressing the C key, producing а 
printout of the entire contents of the screen — normal, 
INVERSE and graphics. 

With LPRINTER CLOADed but not RUNning the COPY 
subroutine can be used directly by entering the command 
GOSUB300 and pressing the RETURN key. 


26 IFPEEKC2687S)=2S@ANDD> @THENGOSUB28@ 
27 IFC=2@ANDD=35THENPRINT"#" ;CHR#(8) ; : 
507023 

28 ІРС-20ТНЕМРКІМТ" “ІСНК8(82; 

29 C-C*1:IFC-240THENC-1:PRINI" ";CHR$C8); 
30 B$-INKEYS:A$-INKEYS :IFA$ <> "" THENSOUND 
10, 1 :G0SUB50 

40 AS="" = NEXT 
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50 R-RSC(CR$):B-R:IFP-2-18ND8» 31ANDA<64THE 
NB=B+132 

60 IFP=-1ANDA> 63ANDA<1] 28THENB=B+ 128 

65 IFK=-1ANDA> 63ANDA<SSTHENA=At 32 

20 IFR»122THENGOSUBI118:GOTOS0G 

80 LPRINTCHR$CR); 

90 IFP=-]ANDA<127ANDA> 31THENLPRINTCHRS (8 
2:СНК%(95); 

95 IFB=13THENPRINT" "jCHR$(8J;:D=-1 

100 PRINTCHR$(B);:D=D+1 :IFD=3STHENSOUND3 
1,2;20,1 

102 IFD=41THEND=1 

105 RETURN 

110 ІҒА= 1 ЗЗОКа= 1 ЗВТНЕМ_РКІМТСНК& (85) ; CHR 
$(8);CHR$(84) ; : RETURN 

120 IF&-1310R8-140THENLPRINTCHR& (85) ; CHR 
$(8);CHR$(69) ; : RETURN 

130 IFA=137THENGOSUB19@ :LPRINTCHR$C92) : : 
RETURN 

140 IFA=134THENGOSUB19@ :LPRINTCHR$(47) ; : 
RETURN 

150 IFR-143THENLPRINTCHR$ (29) ;CHR$C8) ;CH 
R$C85) ; :RETURN 

160 IFR-128THENGOSUBIS? :LPRINTCHR$ (42) ;C 
НК%(82:СНК%(352; : RETURN 

165 IFA=13S0RA> 138THENGOSUBI13S0 :LPRINTCHR 


$(43) ; : RETURN 
178 LPRINTCHR$(122);:RETURN 


190 LPRINTCHR$C29) SCHRS (8) ;CHR&CQ5) ;CHRE 
(82; :RETURN 


200 500М0 18, ]:PRINT" ";CHR$C8);CHR$(8);: 
LPRINTCHR$(8) ; 
219 D=D-1 :RETURN 


302 FORT=28672T029183:A=PEEK(T) 

310 IFA<32THENLPRINTCHR$CAt64) ELSEIFRAX6 
4THENLPRINTCHR$CA); 2 

320 IFA>63ANDA<S6THENLPRINTCHR€ CA) ; СНК С 
8); CHR$CS52; 

330 IFA>SSANDA<128THENLPRINTCHR#CA-64) 5C 
НК$(8);СНК$(95); 

340 IFA> 127THENGOSUB370 

3502 D-Dt1:IFD232THEND-0 :LPRINTCHR$C132; 
360 NEXT :D=@:LPRINTCHR$(13) ; :LPRINT:RETU 
RN 


320 IFR» 143ТНЕМА=А- 16 :6070370 
380 GOSUB110:RETURN 
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Reverse video 
An interesting effect available 
on the VZ-200 is the ability to 
reverse the video dis play viaa . 
POKE command. `: = 7 
Оп turning on the Vz- 200 


(version 2.0), the text is 


shown as Diack on а fight 
green background. COLOR.1. 


POKE 30744, > 


ANE 
respectively. 


Saito: these values has. 


PE 6 Nov 34 


COLOR, D = 


ioci .on binc 


POKEing 30744,1 reverses 
the image, giving light green 
text on a dark green back- - 


^ ground with COLOR гапа 
orange text on a red Sack- 


ground with COLOR,1. - 
DE 30744,0 reverts 
on a light. 


light green text on dark 


pridt on iis block ponies 
on the upper case J and Z 


keys, the poles. of анс wwo. 


Supp J. 


Enlamed characters 
By John ten Velde 


This program allows the user to create 
а “notice board” containing a message 
in enlarged characters. It could be used 
for advertising purposes ог as а teaching 
aid. 

The program consists of three main 
parts: the character information section 
(lines 33 to 90); the input section which 
allows the user to enter a message of up 
to 5 lines of 15 characters (lines 100 to 
290); and the outout section which 
displays the message on the screen. 

In the character information section, 


64 - BITS & BYTES — December 1984 


Sud character is ERE D; a 27 


7260 FOR X= 8 TO 14 Ауган . n. 


7270 BCX Y= S hae me ite gs Ma 
2 288 NEAT X^, - 3 


` 360 MODE а» 


. 516 FOR X=8 TO: 44 12 
520 B =B(X,Y) 7 Y: 


. 530 FOR Ү8-8 TO 8 


‚620 IFñ>=M THENSET(X*8*6-N, Vt£114 V0) ta =й-М 


` 660 NEXT X 


елеме a eh tg ЛАМ әт 4 tg tn ntt 


—À tS gn 


code which represents the pixels 
turned on in a 7 x 9 pixel grid. The 
digits are made up of nine three 
groups, each group representing one 

of the.character in binary form. The 
character information can be altered + 
produce characters chosen by the user 
required. ~ 


€ !00909909990999990399099009 999 
5 '©99 ENLARGED CHARACTERS 992 
E бы ыы ыы 


18 POKE 30744,1:CLEAR1500:DIMA$(50):CLS 
28 DIMBCIS, 5) 

33 ñ$(33)="008008008008008008008000008"' ! 
42 8$(42)2"073973042028127029042073073"' * 
48 8%(48)<"028054065065065065865024028"70 
49 ñ$(49)="008024040008008008008008028"']! 
58 8$(50)-"02663406500200406€0616032127?* 2 
51 8$(5122"028034065002012062065034029"' 3 
52 8$(52)-"'0046012020036127604684064004 "" 4 
53 8%(532-"12278640640641240020010802124"75 
54 А4054) ="028034065064092098065034028"'6 
55 43055) =“ 127001092004808915032064064"'7 
56 n$(56)-"0280340650354028034065034028" '8 | | 
57 8$(57)-"028034065035029001065934028"'9 
56 Ағ(56)-"000000028025000025025800000077: 
59 0$(59)-"000060028028080029029212024"' ; 
65 8%(652-”806028054065127865055065065%78 
56 8$(66)2"1240668065066124066065865124"' B 
67 R$(€7)-z"026634065664064064065034028"' C 
68 84(62)-"124й66065065065055й55865124"”0 
69 8%(69)-"127864064064124064064064127"7Е 
70 8з%(70)-"1278654064064124064054064064"7- 
71 8%(712-"028054865064071065085054028"76 
72 8%(72)5"8550650650855127865065965865"”Н 
73 af£(73)-"026606008605608666008268029"*' 1 
74 R$(74)-"001001001001001001065034022"' J 
75 8%(257):"065086605807288081040620560657К 
76 ñ$(7?6)="D640640640840640640D64664127 "L 
7? 8%(77)5"0865899025075065065865065065"7М 
78 А8(78)-"й65097081073069857065865065"”8 
79 8%(79)-"0828034065065085665065854028%”0 
80 85(80)-"124066865866124864264й54064"”Р 
81 8%(612-"028054065065065065069054029"70 
82 8%(82)-"12406686586612409728788650865"7”8 
83 R$(63)-'028834665032026002065034028" ' S 
84 0$(84)-"1276080080286053053508008000"' T 
85 А%(85)5"0650650650650865065065034028"7) 
86 81(86)-"06506506503403402002008880898"' U 
87 8%(827)-"065065065065065075093119034%7И 
88 8%(88)-"065065034020005020034855055"7Х 
89 А%(89)-"0865065054020006008002008065"7Уу 
98 83(90)-"1278018082004008816032054127"72 
108 FOR Х-28887 TO 28823 :РОКЕ Х,96: НЕХТ 
20 FOR Х-28859 TO 28967 STEPS2:POKE 4,96 


НЕХТ . 
Ра отрар TO 28983 STEP32:POKE X+96 
й NEX 


FOR =28999 TQ 29015" :POKE Х, 96: НЕХТ 
180 FÜR Y=168 TO 296 STEP 32 ' 

196 FOR X=ü TO 14 

208 A$-INKEV$:A$-IHKEV$ 

216 IF A$="" THEN 200 

220 PRINTSCY+X) AS; 

225 IF INKEW$< 2“ТНЕН225 

236 NEXTX 

248 IF INKEY$<>""THEN248 ELSE NEXT V 
259 FOR Y= 0 TO 4 


299 MEXT: V: i ”, 


500 FOR V=0.10 4.i i; 


550 IFB<321HENB=B+64` 
560 1ЕВ= 32 THEN 660 
570 Б%-й%(8) M 


590 ñ= VALCMIDF CBS, (00+1)ж3- 2,» 
600 FOR Н-6 TO 0 STEP —-1^ 
610 M=2*N 


630 NEXT H 


64@ НЕХТ ҮӨ 


670 НЕХТҮ 

680 T$zINKEV$: T£2 INKEV£ 

699 IF T$="" THEN 686 

700 IF CeZ THEN 653 ELSE C= 2 
218 COLOR С. 

5070588 


Basic 
understanding 


1 have come to the conclu- 
sion that although people 
want more software written 
for their particular micro, 
nobody is prepared to give 
away any secrets, so that 
more up-and-coming pro- 
grammers can have a better 
understanding of the way a 
certain problem is solved by 
a computer. 

In a previous edition of 
АРС, in the Communications 
section, there was a cry of 
despair from a VZ-200 user 
for a word processor type 
program for the VZ-200. On 
reading through the Pro- 
grams section of a few APC 
issues, it is easy to see why 
nobody (novices) can write 
programs for the VZ-200. It 
appears that those who 
know the deep dark secrets 
of programming would like 
to keep these secrets to 
themselves. 

All of the programs that | 
have seen in APC for the ‹ 
VZ-200, have had no com- 
ments (apart from those 
with the authors name etc) 
in them. It doesn't take long 
to add a few comments into 
a program just to let the 
reader know what the pro- 
gram is doing. For example 
the following code is from a 
Basic program: 


219 


Wouldn't it be a lot easier 
to see what the program is 
doing (apart from spending 
hours tracing through it) if it 
were presented in the 
following form: 


why this is a good practice 
to get in to. 

There is no need to go 
overboard with the com- 
ments, but imagine a begin- 
ner in this wondrous field of 


198 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


199 REM Xxx 


ADDING A RECORD 


210 CLS:PRINT .......e.t.c. 


260 РЕМ *XX 


. END OF ADDITION 


xxx 


xxx 


261 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXYXXXXXX 


399 REM +++ 
499 CLS: INPUT 


At least from there, the 
reader can see what the par- 
ticular section of a program 
is doing; then if they want to 
go into any more detail, they 
can use their Basic reference 
manual. It also helps if there 
is a list of the variables (in 
REM statements), and what 
each variable is used for, at 


the beginning of the pro- 


gram. Another tip is to use 
variables that represent 
something. In the example, 
NU% is for NUmeric 
storage, NR96 is for Number 
of Records, L1 is for a Loop 
(there are three of these in 
the program, 11... ІЗ), 
and RC$ stands for Record 
Contents. 

Some readers may think 
this all a gross waste of time 
and effort, but if their little 
micros ever acquire the 
capability of running other 
high level languages (eg, 
Pascal, Cobol), they will see 


CLS:PRINT"RECORD NUMBER: "3;NF%t15 PRINT 


CHANGING A RECORD 


ее IPS apr els 


computing, sitting there with 
his/her reference manual, 
and trying to figure what the 
heck is going on in the first 
lot of code or what part of 
the program it is. | have 
visions of a 12/13 year old 
in tears, ripping up the 
manual, pulling the plug on 
the computer and vowing 
never to use it again. 

If we want this industry to 
grow, lets share the secrets 
around so that the up and 
coming youngsters have the 
opportunity of learning from 
things that we had to find 
out for ourselves. 


S Hobson 


220 FORL1-1TONR*:PRINTRN$(L1,1)3 : INPUTRCS(LI,NF%+L) 
238 IF(LI=1) AND(RCS(LIL,NF%+1)="") THENRETURM 

240 МЕХТ:МЕ%-МЕ%»%1:ІҒМЕ%»<5ӘТНЕМ20О 
250 PRINT"DATABASE FULL!!!*:FORL1-1TO199: NEXT: RETURN 
400 CLS: ІМРОТ "ИНАТ RECORD" ; NU% 
416 IF (NU%ONF%) OR (NU%< 2) ТНЕМ400 
429 IFNU*-OTHENRETURN 


459 


өсө ө ote E e bv 
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VZ-200 into 
puberty 


Steve Olney has produced a 
machine code utility which 
“re-enables all 23 hidden 

- commands resident in the 
VZ Basic ROM”. Apparently 
this means VZ-200 will then 
have most of the Level ll 
TRS-80 commands and a 
couple more. It'll set you 
back a moderate $15. Write 
to Steve Olney, 200 Terrace 
Road, North Richmond, 
2754. 
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As the earth spins on its axis, there is 
always one hemisphere in sunlight and one 
in shadow. The junction between these two 
hemispheres - day and night - is a great 
circle which is called the "grey line". A zone 
of undefined width along the grey line is 
called they "grey zone”. The grey zone is of 
interest largely because here there is a fairly 
abrupt change in the ionosphere. For exam- 
ple, the D-layer disappears almost com- 
pletely at sunset, bringing with its passing 
the rapid build-up of MF DX; the opposite is 
the case at sunrise. 

There is also the well known property that 
efficient communication is possible between 
stations both lying in the grey zone. Thus it is 
of interest to amateurs to know where the 
grey zone is at any time and to exploit its 
properties where possible. 

The easiest method of finding the grey line 
is to buy a radio globe of the world such s 
the "Grey Line Radio Globe" reviewed in 
Amateur Radio Action, Volume 5, Number 
11, or to construct one from an ordinary 
school kids globe as described in Practica! 
Wireless, March 1984. 

A more difficult method, but a more accu- 
rate one, is to calculate the grey line. It is a 
relatively straight-forward matter to calcu- 
late for any date the bearings of the grey line 
as it passes any location. For this is a calcu- 
lator or set of mathematical tables is suffi- 
cient. To calculate vvhen the grey line 
passes a location — sunrise and sunset 
times — a moderately sophisticated calcu- 
lator is still sufficient. However, in the long 
sequence of calculations involved, a home 
computer is not only quicker and easier, it is 
likely to be more accurate. Because of this, 
the latter part of the article is directed 
towards home computers, with a reference 
for further reading for those with calculators , 
only. 


BEARINGS OF THE GREY LINE 


In Figure 1, NAS is the meridian through 
location A on the grey line. О is the subsolar 
point, ie the place on the earth’s surface 
which lies in a direct line between the centre 
of the earth (0) and the sun. Any great circle 
through O intersects the grey line at right 
angles. QBN is that part of one of these great 
circles which passes through the north geo- 
graphic pole. 

What we want to find is angle A and from 
it the bearings of the grey line, X, and (180 4- 
X) degrees. These will be the p earings at 
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sunrise; at sunset the bearings will be (360 
— X) апа (180 - X) degrees. 

For spherical triangle NAB, ИСТ 
sin А/ sin МВ = sin В/ sin NA. Pasition 
NA and NB, although sides of the triangle, of sun 
are expressed as the angles these sides sub- = 
tend at the centre of the earth. 

Noting that B = sin90 = 1, that NA is (90 
-latitude A) if we set north latitudes positive 
and south latitudes negative, and setting NB = 
d, we get 
sin A = sn d/sin (90 —lat A) 

= sin d / cos (lat A) 
Referring again to Figure 1, we can see that 
d is the same as ООЕ, which is called the 
sun's declination. 

We know latitude. The only unknown is 
declination. VK2KIl in ARA Volume 6, 
Number 9, page 33 gives a rough formula 
which is probably good enough for most pur- 
poses. That formula (modified) isd = —23.4 
sin (0.9856 D) where D is the number of 
days after 21st September. The value 
0.9856 D is a value in degrees, not radians. 
The declination, d, clearly ranges in value 


from —23.4 to 23.4 degrees. Horizon 
Note that this is the negative of VK2KII s 3 n A 


formula to ensure that the usual sign con- SL sur 
ventions apply, ie northern declinations posi- 
tive and southern declinations negative. 
VK2KII has it the other way around. 

Since cos (lat A) is positive regardless of 
the sign of the latitude, А takes on the sign 
of declination. That is, south declinations Figure 3 
such as shownin Figure 1, produce negative 


values for A and north declinations produce 
Lauatorial positive values for A. To get the bearing X, 
BRI the rule is to set X equal to (360 -- А) 
degrees and subtract 360 if this exceeds 
360 degrees. This leads to the two sunrise 
bearings X and (X + 180) degress and the two 
sunset bearings (360 — X) and(180 - X) 
degrees. If any of these exceeds 360 de- 
grees, subtract 360 degrees. 

For example, on 3rd May, 0—224 and 
hence d = 15.3 degrees. At latitude —35 
degrees, say, A= 18.7 degrees and X = 
341.3 degrees. The sunrise bearings of the 
grey line are 341.3 and 161.3 degrees; the 
sunset bearings are 18.7 and 198.7 degrees 


Sunrise and Sunset Times 

It is possible to look at a daily newspaper 
for the times of sunrise and sunset. They 
don't vary much from day to day, so today's 
times are probably good enough for tomor- 
row. The information above is, in these cir- 
cumstances, sufficient for day to day oper- 
ation. 

However, if you don't buy a daily news- 
paper, have poor library services, or you 
want to know, for example, when the grey 
line will pass the operators in your net across 
the Tasman, you may want to calculate sun- 
Veraal rise and sunset times. 

r Program GREYLINE describecl апа listed 
=guınox Б ; ; 

elow carries out these calculations accurate 

to a few minutes. The rest of this section is a 

T description of the procedure followed and 

Figure 2 can be omitted on first reading. Peer Duffer- 
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Smith in iie excellent ' ‘Practical Astronomy 
with your Calculator", referenced in full 
below, has more detail and the interested 
reader is strongly recommended to get hold 
of a copy and read the relevant sections. 


Sunrise and sunset times depend on 
where the sun is in relation to the earth and 
on the location of the point of observation. 
To find out where the sun is on any date, it is 
necessary to know how the position of the 
sun is described by astronomers. 


There are two co-ordinate systems used: 
equatorial co-ordinates and ecliptic co-or- 
dinates. 


Equatorial co-ordinates are based on the 
equatorial plane which is the projection of 
the plane cutting the earth at the equator. 
Ecliptic co-ordinates are based on the eclip- 
tic which is the plane in which the earth and 
sun move. Figure 2 shows both these planes 
which are at an angle of about 23.4 degrees 
to one another. 


The planes meet in a line which passes 
through the earth. One direction along this 
line from earth is used as a reference direct- 
ion for both co-ordinate systems. It is called 
the vernal equinox because the sun lies in 
this direction from earth on 21st March in 
the northern spring. 


In each co-ordinate system the plane and 
reference direction are used in a manner 
analagous to the way the plane of the equa- 


N 


tor and the line from the earth' s centre to the 
Greenwich meridian at the equator are used 
for our usual geographic co-ordinate system. 

Ecliptic longitude (lambda) begins at О 
degrees at the vernal equinox and increases 
in an anti-clockwise direction in the ecliptic 
plane to 360 degrees back at the vernal 
equinox again. The ecliptic latitude (beta) 
begins at O degrees and increases. to 90 
degrees above and decreases to — 90 
degrees below the ecliptic. The ecliptic lati- 
tude of the sun is zero always of course. 

In equatorial co-ordinates the longitude, 
called right ascension (alpha) is based on the 
vernal equinox in a way exactly analagous to 
that for ecliptic longitude. The angle above 
or below the equatorial plane is the declina- 
tion (delta) and is positive above the plane 
and negative below the plane. 

Astronomers have tabulations of various 
data, including the position of the sun at 
various times. The position of the sun is 
given by its ecliptic longitude. Following Duf- 
fett-Smith | use the ecliptic longitude at the 
beginning of 1980 and from this calculate 
the sun's ecliptic longitude at any time there- 
after as: 

M + 360/Pl.e.sinM + WG 
where M = (360/365.2422).d + EG-WG 
and D = the number of days since the begin- 

ning of 1980 
EG = 278.83354 degrees. The ecliptic Іопді- 

tude at the start of 1980. 
= 282.596403. The ecliptic longitude at 


tarth's 
Orbit 


\ 


Vernal tquinox 


зіс 


аатина | 
регідее, the point where the sun апа 


earth are closest. 

= 0.016718. The eccentricity of the sun- 

earth orbit. 

Because the sun is moving relativelv 
rapidly in relation to the earth, the program 
calculates the sun's position at the two mid- 
nights straddling the day of interest. It later 
uses these to get weighted average and 
hence more accurate sunrise and sunset 
times. 

From the ecliptic co-ordinates, convert to 
equatorial co-ordinates thus: 

Right ascension = Тап"! (sin lambda.cos 
EP/cos lambda) 

‘Declination = зіп-' (sin EP.sin lambda) 
where EP is the angle between the ecliptic 
and the equatorial plane (23.441884 de- 
grees). 

Declination gives (i) the bearings of the 
grey line — as shown above, (ii) whether the 
sun rises and sets, and (iii) for how long the 
sun remains above the horizon if it rises and 
sets. These last two can be seen by refer- 
ence to Figure 3. Consider an observer (A) at 
south latitude L degrees. Here L is treated as 
the unsigned latitude, ie the absolute value 
of latitude. If the declination of the sun is 
more than (90-L) degrees north, the observer 
at A will never see it. If it has a declination of 
more than (90-1) degrees south, it will 
always be above the horizon. If the sun's 
declination lies in the range (90-1) degrees 
north to (90-L) degrees south, the sun rises 
and sets. ñ 

The length of time it is above the horizon 
will depend on the latitude of the observer 
and the declination of the sun relative to (90- 
L) north and (90-1) south. Algebraically this 
time is 2H hours where: 

Н = (cos ~ (ғап Latitude.tan delta))/ 
15. 

The other equatorial co-ordinate, the right 
ascension, leads to the precise period within 
the day that the sun is above the horizon. 
There are several steps. Right ascension 
gives local sidereal time (see below) of sun- 
rise and sunset thus: 

Rising time = 24 + alpha —H 
Setting time = alpha + H. 

To understand sidereal times, refer to 
Figure 4. On 21st March, the sun is at the 
vernal equinox to an observer on the meri- 
dian through V and it is noon. 23 hours 56 
minutes.later the vernal equinox is again 
over the meridian at V. One sidereal ("of the 
stars") day has passed. Four minutes later 
again, the sun is over the local meridian at V 
апа one solar day has passed, It is noon 
again. Because the sidereal day is 23 hours 
56 minutes long, sidereal noon falls four 
minutes earlier each day than the day before. 
There are thus approximately 366 sidereal 
days in the 365 solar day year and this is 
because the earth rotates 366 times in the 
course of one year not 365. A little ex- 
perimentation with a couple of oranges or 

: tennis balls will show this is the case. 

The sidereal rising and setting times need 

to be converted into UTC thus: 
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should be referred to the author. Please in- 
clude a stamped self addressed envelope 
and as many details us possible of the prob 
lem. Suggestions for improvements. and 
notification of errors will be gratefully re- 
ceived. 


Arrays 


Bil) The number of days from the beainning 
of 1980 to the beginning of (1979+ 1) 

C(1,J) Right ascension (J = 1) and declination 
(J=2) of the sun at the two midnights 
(| = 1.2) straddling the day of interest. 

ЕП.) Number of days in each month (l= 1 to 
12) for ordinary (J = 1) and leap 
years (J = 2) 

F(1,J) Bearings of rising (J = 1) and setting 
(J = 2) sun based on two midnights 
(1 = 1,2) straddling day of interest. 

L(I) Ecliptic longitude of the sun at the two 
midnights (l= 1,2). 

Q(1,J) Latitude (1 = 1) andlongitude (I = 2) of 
QTH in degrees (J = 1) and minutes 
(Ji22). 

Later in program latitude in decimal 
form in Q(1,1), longitude in Q(2, 1). 

S(I,J) Local sidereal times of sunrise (J = 1) 
and sunset (J = 2) based on the two 
midnights (1 = 1,2). 


Greenwich sidereal, and UTC times. 


Test Data 


The following locations, dates, times and 
bearings may be useful as test data. 


UTC = (t - longitudo/15 - d.A + 

B). 0.99727 

The expression in the brackets must be 
made to lie in the range O to 24 hours, by 
addition or subtraction of multiples of 24, 
before the multiplication takes place. In the 
equation, t is local sidereal time, d is the 
number of days since the beginning of 1980, 
A = 0.0657088, and B is a constant which is 
different for each year. The program uses 
B = 17.37 which is near enough for 1985 
and 1986. At around 2400 UTC, this 
formula does not convert accurately. 
However, sunrise and sunset times in 
Oceania should not be affected. 


The Program 


The program asks for the location latitude 
and longitude and the date in which you are 
interested. Latitude and longitude need to be 
signed. North latitudes are positive; south 
latitudes are negative. West longitudes are 
negative; east longitudes are positive. Only 
sign the degrees, not the minutes. Illegal lati- 
tudes and longitudes are signalled and the 
user asked to re-input. The date is input as 
DD,MM,YY, eg 22nd April 1985 i$22.04,85 
or 22,4,85. Dates must be in the range 1,1,- 
80 to 31,12;99. 

Output form is shown in Figure 5. Sunrise 
and sunset times are accurate to within a 
few minutes. 

The program runs ın the un-enlarged 
№2200. Only minor translation should be 
necessary for other machines. Problems 


r —‏ س 
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Begin with Section 45, Sunrise and Sunset. 


Canberra Bearings 
14.6? 1.49 The analogue methods are іп ARA Volume 
Latitude —35917' —34°56' 5, Number 11, and Practical Wireless March 
Longitude 149?13* 138936" 1984, and some simple sunrise апа sunset 
Date 22.4.84 24.3.84 References „calculations are in lan VK2Kl's article in 
: Sunrise (UTC) 2031 2050 The basic reference is “Practical Astro- ARA Volume 6, Number 9. The Shortwave 
Bearings 345.4° 358.6° nomy with Your Calculator’, by Peter Duf- Propagation Handbook also addresses the 
165.4° 178.6° fett-Smith, 2nd Edition, Cambridge Univer- issue of propagation along the grey line 
Sunset (UTC) 0728 0849 sity Press, 1982; available in paperback. (Section 6.8). 
iQ DIM BC20),C(2,9),E(12,2),F(2,2),D(2); 390 IF MM<1 OR MM212 THEN 440 
Q(2,2),9(2,2),T(2) 400 LY=1 
20 DIM 5%(2),Т%(2) 410 Y-YY-INT(YY/4)*4 
39 FOR I-1 TO 29 420 IF Ү=@ THEN LY-2 
ae READE BEN) 430 IF DD?-1 AND DD<=E(MM,LY) THEN 455 
50 NEXT 440 PRINT "ILLEGAL DATE: TRY AGAIN" 
60 малы шаа. 459 GOTO 369 
70 DATA 3653,4018,4383,4749,5114,5479,5845, G ss ЕВ 
6210,6375,6940 460 FOR Ізі TO ММ-1 
80 FOR Т=1 ТО 12 470 D=D+FE(I,LY) 
90 READ Е(І,1) 480 МЕХТ 
109” E(1,2)=E(1,1) 49)  M-369/365.2422*D«EG-WG 
110 NEXT 500  V-M*360/DPI*EC*SIN(M/DR) 
120 DATA 31,28,31,30,31,30,31,31,99,91,99,91 " 919 L(1)=V+WG 
130 E(2,2)-29 520 IF (17-0 THEN 559 
140 EG-278.83354 530 L(1)5L(1)*369 
150 WG=282.596493 9549 GOTO $29 
160 PI-3.1415927 550 IF L(1)«369 THEN 570 
170 ЕС-0.016718 555 L(1)=L(1)-369 
189 DR=57.29578 569 GOTO 559 
199 EP=23.441884 570 L(2)=L(1)+9.985647 
230 FL=Q 590 IF L(2)»2369 THEN L(2)2L(2)-369 
291 “PRINT "LATITÜDE?- OCSIONRD) Bros, М" — 0019. FOR TSL TOE 
240 INPUT Q(1,1),Q(1,2) 020 Y=SIN(LC1)/DR)*COS(EP/DR ) 
259 PRINT "LONGITUDE? (SIGNED) DEGS, MINS" 630 X=COS(L(1)/DR) 
260 INPUT Q(2,1),Q(2,2) 640 IF Х<>@ THEN 680 
270 FOR I-1 TO 2 050 LF Y»Q THEN С(1,1)-90 
280 7-90%(1-1)%90 560 IF Y€Q THEN C(1,1)2279 
299 IF ABS(Q(I,1))€-7 THEN 339 670 GOTO 779 
309 PRINT "ERROR IN LAT/LONG",Q(1,1),"DEG 68) IF Y<29 THEN 729 
REES",Q(I,2)," MINUTES" 699 IF Х>0 THEN C(I,1)-9 
3190 PRINT "TRY AGAIN" 700 IF X<@ THEN С(1,1)-180 
329 GOTO 239 710 ` GOTO 779 
330 IF 0(1,2)<0 OR 0(1,2)>-60 THEN 399 740 C(1,1)=ATN(Y/X)*DR 
340 Q(I,1)-Q(I,1)*SGN(QCI, 1))*Q( I, 2)/69 730 IF Y29 THEN 759 
350 NEXT 749 C(I,1)=C(1,1)+189 
360 PRINT "DATE? DD,MM, YY" 750 IF X*Y2Q THEN 770 
379 INPUT DD,MM, YY 76) C(1,1)=C(1,1)+189 
389 IF ҮҮ<80 OR ҮҮ>99 THEN 440 7197 ССТ; Iren 15735 
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970 
072 
974 
989 
999 


1099 
1992 
1994 
1919 
. 1912 
1014 
1020 
1030 
1040 
1050 
106@ 
1079 
1080 
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GOSUB 1399 
C(I,2)-AS*DR 


X-SIN(C(I,2)/DR)/COS(Q(1,1)/DR) 


IF X2-1 AND Х<1 THEN 822 
FL=1 

GOTO 1262 

22-Х 

GOSUD 1370 

F(I,1)-AC*DR 
F(I,2)-369-F(I,1) 


X--TAN(QC1,1)/DR)* TAN(CCI,2)/DR) 


IF X&-1 OH X21 THEN 819 
ZZ-X 

GOSUB 1379 

H-AC*DR/15 

T(1)2244C(I, 1)-H 
T(2)=C(1,1)+H 

FOR J=1 TO 2 

IF T(J)>24 THEN T(J)=T(J)-24 


S(I,J)=T(J) 
NEXT J 
NEXT 1 


КОН 41-1 ТО 2 
T(J)=24.07*S(1 
NEXT 
DE=(C(1,2)+C(2,2))/2 
Z/¿=SIN(Q(1.1)/DR)/COS(DIE/DIL) 
GOSUD 1370 

PS=AC*DR 

X-9.835698 

ZZ-TAN(X/DR) /TANCPS/DR) 
GOSUB 1399 

DA=AS*DR 
ZL=SIN(X/DR)/SINCPS/DR) 
GOSUB 1390 

Y=AS*DR 

DT=249*Y /COS(DE/DR)/3699 
FOR J=1 TO 2 
T(J)2T(J)*(-1)*J*DT 

FOR I-1 TO 2 
F(I,J)SF(I,J)*(-1)tJ*DA 
NEXT 

T(J)e T(J)-Q(2., 1)/15 


SIPURA PUES COLT) SSCA 


1200 
1210 
1220 
1230 
1240 
1250 
1260 
1262 
1265 


1266 
1270 


1271 
1272 
1273 


1274 
1275 
1276 


1277 
1278 
1280 


1282 
1284 
1290 
1291 
1292 
1360 
1370 
1380 
1390 
1400 


DX= ред, 0657098-17.37 
T(J)=T(J)-DX 

IF T(J)»-9 THEN 1184 
T(J)-T(J)424 

GOTO 1181 


„IF. T(J)&24 THEN 1199 


T(J)-T(J)-24 
GOTO 1184 

T(J)-T(J)*9.99727 

S%(J)=INT(T(J)) 
'%(J)=(T(J)-S%(J))*60+0.5 

NEXT J 

FOR J=1 TO 2 
F(1,J)=(F(1,J)+F(2,J))/2-90 
F(2,J)=F(1,J)+189 

IF F(1,J)<@ THEN F(1,J)=369+F(1,J) 
IF F(2,J)>369 THEN F(2,J)=F(2,J)-369 
NEXT 

CLS 


PRINT@Q" ¥ ¥ ¥ kkk k kkk Fok Kok Kk KIT GREG. BAKER, 
MONGARLOWE, 2622" 


PRINT "GREYLINE CALCULATOR RESULTS:", 
Eak ak ak ok ok ak k kk kkk k k K 11 


PRINT "LATITUDE",Q(1,1)," LONGITUDE", 
QC2,1) 


PRINT "DATE: '",DD;".' ;MM;"." YY 
IF FL-1 THEN 1299 
PRINT "SUNRISE", SX eos DIU S 


"BEARINGS: ; 
PRINT USING ИЕТ 
PRINT USING "######.#" F(2,1) 


PRINT "SUNSET" Du rp mead 
"BEARINGS: 


PRINT USING Е 
PRINT USING "######.#";F(2,2) 


PRINT,,," ANOTHER QTH OR DATE?", "ТҮРЕ 
'Y' TO CONTINUE" 


INPUT Y$ 

IF Y$<>"Y" THEN 1360 ELSE 230 
PRINT "SUN DOES NOT RISE OR БЕТ" 
PRINT "HENCE THERE IS NO GREYLINE" 
GOTO 1289 

END 

AC--ATN(ZZ/SQR(1-ZZ*ZZ))*PI/2 
RETURN 

AS-ATN(ZZ/SQR(1-ZZ*ZZ)) 

RETURN 


; VOTE! ; 
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VZ-200 BASIC PROGRAM STORAGE & LINE 


RENUMBERING 


GRAHAM MARSDEN 


The VZ-200 does not have aRENUMBER 
command so trying to modify a program with 
insufficient vacant line numbers is not a 
welcome task. This program enables the line 
numbers of a program to be reset using any 
start number and increment providing they 
meet certain conditons. 

In order to understand the operation of the 
program it is necessary to understand how a 
BASIC program listing and its line numbers 
are stored in memory. 

Each line of program is formated as КЕБЕ 


- The first two bytes of һе sequence hold the 
address, in two byte form, of the first bvte 
of the sequence for the next program line. 
i.e. the location holding the R above is in 
location P+256*Q 

- The third and fourth bytes hold the line 
number. 

i.e. in this case the line number will be 
L*256*l 

- Then the contents of the program line 
follow, terminating with a byte containing 
the value zero. 


For example suppose the line:- 

300 PRINT"":GOTO400 
was stored starting at address 38420. This 
would be the contents of locations 38420 - 
38433 


Note that characters (including line 
numbers used within a program line after 


GOTO or GOSUB) are stored as their ASC 


codes. 

: "Operators" like PRINT, GOTO, etc have 
their own single byte codes which represent 
the operation. The program looks for the 
codes for GOTO and GOSUB (amongst 
others- see explanation of program 
operation) in order to find the locations of 
line numbers within program lines. The 
codes for various operations can be 
determined by putting in a line. 


MEMORY LOCATIONS. 


using the operation in question, (ensure it 
has the lowest of all line numbers) and then 
type іп - 


FORZ = 31469 TO 31469*N:PRINT 
PEEK(Z);:NEXTZ 

where N is the number of memory positions 
that you wish to see codes for. 31469 is the 
position in memory of the first item of the first 
BASIC program line. i.e. the one immediately 


after the line number bytes. The BASIC 


Program listing normally starts at 31465 
unless moved - but that is another story. 

Having understoodhowa BASIC program 
is stored it is possible to make changes to it 
without having to edit it on screen. 

One thing that can be done is to change all 
the line numbers so they follow a constant 
incremant. 

Here is a program to do just that:- 


How to use this program:- 


1) Type in and CSAVE as listed. 
2) Before keying in your next program load 
the renumbering program from tape. 


3) Key in your program with particular 
attention to the following. 
a) Line numbers used and called 
must be in the range 1-9999 
b) All line numbers or subroutines 
quoted within the text of a program line 
must be preceeded by GOTO or GOSUB 
and be right justified in a 4 space field. 
This means that 5 digit numbers if used 
will be seen only as the first four digits 
from the left and therefore will not be 
found as an existing number. 


ie. IF ... THEN20ELSE325 must be 
entered as 

IF... THENGOTO 20ELSEGOTO 325 
(the line number 20 is preceeded by two 
spaces the number 325 byone, tocreatea 


01000000 


One line of 


program — 


> 
— 


5 


— 


4 space field for the number - This allows 
say atwo digit number to be reassigned as 
a three or four digit number) 


4 space field for the number - This allows 
say atwodigit number to be reassigned as 
a three or four digit number) 

c) Line 10010:- 

Dimmension N%() greater than the 
number of line numbers in the section of 
program to be renumbered - А generous 
guess will do unless you are short of 
memory. 

г Set the value of variable S to 
create a "safe zone" which the 
renumbering program will not alter. 
Normally this value will be 10000 (the first 
line number of the renumbering program 
itself) or it may be less if you wish to create 
a "gap" in line numbers between two 
sections of program - say between a main 
operating section and another section 
containing subroutines or Data lines. 
Remember that nothingin the “safe zone" 
is altered toa GOTO or GOSUB calling a 
lower section renumbered line would 
have to be changed separately. 

Always CSAVE BEFORE running this 
program. lf for any reason the 
renumberingis not totally successfulthen 
what remains of your program will 
probably be useless as part will be 
renumbered and part will not - equivalent 
to a population explosion of bags. 

Key in RUN10000 

(If the result is a BAD SUBSCRIPT 
ERROR IN 10090 then increase the size of 
N%() in line 10010 - reloading will not be 
necessary as nothing has been altered 
yet.) 

Enter 1st line number and increment on 
prompt. 

When the renumbering is complete the 
cursor will return and the computer will 
be in READY mode (The time to execute 


- OO 


PEE lines 
| 


38420 38421 38422 38423 38424 38425 38426 38427 


138434 J 


Ргіпе 


38428 38429 38430 38431 38432 38433 38434 38435 


€) OOO OOOO 


1 
4 
1 
Сосо Next Line —— 
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ША about 1% seconds per program 
іпе 

Make апу changes as indicated Бу 
messages printed during execution. (You 
can BREAK the execution to сору notes 
from the screen ií it gets too fulland then 
enter CONT to continue). 

9) Probably a good idea to CSAVE again 


8 


— 


10)Thoroughly test the renumbered section 
of the program - any problems - reload 
that saved at (4) and reRUN 10000 - it is 
not unknown for gremlins to be about for 
one renumbering run but absent for the 
next. 


Program Operation 
LINES 10000-10090 


The line numbers are stored in array №. 

Variable M is initialised to 31465 (BASIC 
Program start) and moved to the 1st byte of 
each program line by the calculation based 
on the values of P and Q the "start - position 
of next line" pointers.. While M holds the 
decimal value of the memory positions the 
value of variable А is used in the PEEK'S. 
This is because PEEK and POKE will only 
work for the range -32768 А 32767 values for 
memory above 32767 must have 65536 
subtracted before PEEK or POKE. 
Line 10070 ends execution if P and Q both 
are zero - this occurs when the end-of- 
program byte sequence is found. (Two zero 
bytes then a 4 byte. 


LINES 10100-10120 


The first line number and increment are 
entered and edited so that they are both 
positive integers greater than zero. At 10120 
a check is made as to whether the new 
numbering reach into the "safe zone" of line 
numbers. 


LINE 10130 


Reinitialise M back to program start and 
variable c to 1, C is the number oí the line ie 
lst 2nd 3rd etc. 


LINES 10140-10180 


Calculate new line numberand POKE new 
line number to the appropriate bytes. M is 
now at the first byte of the line's storage 
sequence. The execution ends at 10160 ií the 
"safe zone" is found. 


LINES 10190-10210 


Calculate R the memory position of the 
start of the next line. 


LINES 10220-10290 


This section searches through the 
program line contents looking at the value in 
each byte: 


0: - end of line - go to next line 

4: - Quote marks in a PRINT or INPUT 
statement - ignore 

136: - DATA - ignore whole line 

147: - REM - ignore whole line 

141: - GOTO or 145 GOSUB: - alter line 
number called. 


LINES 10300-10380 


M set to the units column position of the 
number field area. The string variable 0$ is 
loaded with the charactersof thelinenumber 
field, and variable 0 is given the value of the 


10000 › "02-2080 LINE RENUMBERING G.A MAR 
SDEN 1984 

10010 DIN №(С200) :M=31465:C=1 :S=10000? "F 
IRST LINE OF SAFE ZONE" 

10020 A=M:IFA>32767 THEN A=A-65536 

10030 Р=РЕЕКСА? :А=М+1 :ІЕ ñ>32262 THEN A= 
А-65536 Р 

10040 Q=PEEKCA) :а=М+2: ҒАУ 32767 THEN A=A 
-65536 "e 

10050 L=PEEK(ñ):ñ=H+3:IF ñ>32262 THEN ñ= 
а-65536 

10060 I-PEEKCA) 

10020 IF P=@ANDQ=@THEN PRINT "SAFE LINE 
PAST END ":END 

10080 IFL+256*I>=STHEND=C-1 :PRINTD; "LINE 
S FOUND" :GOTO10100 

10090 Nx(C)2L*256XI :М=Р+256ж0:С=С+1 :GOTO 
10020 

10100 INPUT"IST LINE NO.";L$:F-INTCUALCL 
$)):IF Ғ<1 THENGOTO10100 

10110 INPUT" INCREMENT" ; I$: J-INTCUALCIS)) 
:IFJ<1THENJ=1 

18120 IF F+tJ*CC-1)>=STHEN PRINT" VALUES T 
OO LARGE" :GOTO10100 

10130 M=31465:C=1 

10140 A=MN+2:IFA>32767 THENA=A- -65536 

10150 B=N+3:IF B>32767A=A-65536 

10160 IF PEEKCA)+256*XPEEK(B)>=STHEN PRIN 
T"FINISHED" :END 

10120 W=F+(C-1)xJ | 

10180 POKEA, W-256XINT(W7256):POKEB, ІМТСЫ 
4256) 

10190 A=M:IFA>32767 THENA=A-65536 

10200 B-M-1:1FB»32262 THENB=B-65536 
10210 R-PEEK(A)*256XPEEKCB) 

10220 М-М%4:Т-і 

1023@ A=M:IF A>32767 THEN A=A-65536 
10240 IF PEEKCA)=1360R РЕЕКСА)=147 THEN 
M=R :С=С+1 :607010140 

10250 IFPEEK(ñ)=1450R PEEKCAJ=141 THEN G 
07010300 

10260 IF РЕЕКСА) =34ТНЕМ T-TX*-1 

10220 IF РЕЕКСА)=0 THEN М-Б:С-Сж1:007010 
140 

10280 M=M+] 

10290 IFT<O THENGOTO10260ELSE GOTO10230 
10300 М=М+4 

10310 O$-"" 

10320 FORG-3TOOSTEP-1 

10330 A=M-G: IFA> 32767 THENA=A-65536 

10340 O$=0$+CHR$CPEEKCAD) 

10350 NEXTG 
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* 


line number. Lastly a check to see if the line 
number called is within the safe zone. 


LINES 10390-10470 


The position of the old line no 0 is found in 
the arrayN%() H% is the position in the array 
that the value of 0 is compared with, in line 
10470, and is initialised at the middle of the 
occupied area of the array. K% is initialised at 
just over% of the occupied length of the 
array. K% is reduced to just over % its value 
at each loop and H% is altered by adding or 
subtracing K% depending on which direction 
the search for the line number must go. The 
values of the last two array positions looked 
at are held in HL% and НР%. If a second look 
is taken at any array position then the 
conclusion is that the number does not exist 
and the error message at 10460 is printed and 
the search for another GOTO or GOSUB 
resumes at 10230. This search routine takes 
only 5 or 6 loops to find a number in an array 
of 70 line numbers and is therefore more 
efficient than just starting at the bottom and 
looking at each array position on the way up, 
which would take an average 35 loops to find 
a line number Of course it relies on the fact 
that the numbers are stored in numerical 
order. The tests at 10430 and 10440 are to 
see if the search has gone beyond the 
occupied range of the array and modify H% 
and K*6 accordingly. This routine is useful to 
look through any array of values providing 
they are in number order. (ascending or 
descending). 


LINES 10480-10510 


String variable NN$ is set tothe characters 
of the new line number (including spaces) to 
be inserted in the 4 byte field of the program 
line. Line 10500 allows the start positions of 
subroutines to be recorded as the 
renumbering goes on. This line could be 
ommited and the start of subroutines 
marked in the program listing using REM" or 
^. The ^ allows the remarks to be put in 
inverse characters to make them stand out 
as the program zooms up the screen after 
LIST 


LINES 10520-10620 


This segment ensures that the value of 0 is 
consistant with the number of spaces at the 
left of the 4 byte field that the number came 
from. 


LINES 10630-10670 
Character by character POKEing of the 


' new line number to its position in the line 


format. 


10360 O-URLCOS) 

10320 IFO>=STHEN PRINT"LINE" ;u;" СМЕМ) :-" 
;OELSE GOTO 10430 

10380 PRINT"CTWELUE SPACESJ---INSIDE SAF 

E 20МЕ:М-М»1:0607010230 

10390 HPxz0:HLx-0 

10400 Нх=1+0;2:Кх=02.. 

10410 KxC(Kx*1)72:HPX-HLX :HLz-Hx 

10420 Hx-Hx «*SGNC(O-NXCHz)) XKx 

10430 IFNx£Hx)20THENHx-Hx-Kx :Kx2] 

10440 IF Hx<1THENHzx=1 :Кх= 1 

10450 ІЕНХ-НРХТНЕМ GOTO198460ELSEGOTO1042 

@ 

10460 PRINT"LINE" 3W3"CNEW) :- ";0;"NOT ҒО 

UND" :М=М+1 :607019230 

10420 IFNX(Hx)4»OTHENGOTO10410 

10480 NN$="[3 SPACESJ'"*STR$CF*CHxX-1)XJ) 
10490 A=M-4:IFA>32767 THENA=A-65536 
10500 IF PEEKCAJ=145THEN PRINT"NEW SUBRG 
" SNNS"CALLEDG" 3W 

10510 NN$-RIGHTSCNN$,4) 

10520 IFO»-1000THENGOTO10630 

10530 A=M-3:IFA>32767 THENA=A-65536 

10540 IF PEEKCA) <>32THENGOTO1061@ 

10550 IF 0>=1@@THENGOTO10632 

10560 A=M-2:IFA>32767THENA=A-65536 

10520 IFPEEKCA) < 32THENGOTO10610 

10580 IFO?-10THENGOTO10630 

10590 A=M-1 : IFA>32767 THENA=A-65536 

10600 IF PEEKCA)=32THENGOTO10630 

10610 PRINT"LINE" ;W3"CNEW) :FIELD ERROR"; 

9 

10620 PRINT"£4 SPACESJ---CHANGE TO NEW N 

O0. : "3NN$ :GOTO10670 

10632 FORG=1T04 

10640 A=N-4+G: IFA> 32767 THENA=A-65536 
10650 POKEA, ASCCMIDSCNN$,G, 13) 

10660 NEXTG 

10620 H=H+1:GOT010230 


2$. 
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Le v2 Sx 


FIND 
By Chris Stkamboulidis 


Find is a machine language routine 
which searches your Basic program 


- for lines which contain a specified 


string up to 16 characters in length. 
The routine is quite short (only 117 
bytes) and will work with any size vZ 
because it resides in an unused sec- 
tion of the communications region. 

There are two methods of entering 


Find into your machine: if you have 
an Editor Assembler, simply type in 
Listing 1, set the origin to 7A28H/ 
31272, assemble and dump the object 
code to tape under the name 
'FIND.OBJ. When you CLOAD or 
CRUN the tape, the routine will auto- 
run and immediately return you to 
the ‘READY prompt 


The other method is to type in List- 
ing 2, which will POKE the machine 
code instructions into place for you 
and will do all the initialisation. In 
this case, make sure that you CSAVE 
а copy of'FIND.BAS' before you try ` 
to RUN it. To save you typing it all in - 
again if it crashes for any reason, 
such as a wrong number in the data 


statements. À checksum is used to 
make sure that all these numbers add 
up, but this doesn't prevent numbers 
being placed in the wrong order. 
When you RUN the loader, it should 
only take a couple of seconds to do its 
job and then return you to‘READY’. 
The Basic loader will have been 
NEWed and you're ready to go. 

To use Find, simply enter the 
following as a direct command: 

PRINT&"string" 

Or 


3&"string" 
with the string to search for in be- 
tween the quotes. The line numbers 


ofthe lines which contain the search 
string will then be printed on the 
Screen for you. Note that leading 
spaces in the search string are 
ignored and so the routine cannot 
search for spaces, eg PRINT&“ " 
would be interpreted as a null string 
and would not be searched for. 


PCG Ару; Sa¬ 6% 
lot 3 


2 ЖК ЖЖК 2f f ok teak ok fk ete 
+ FIND UTILITY 

: FOR THE VZ-200 MICRO 

s ORG=7A28H/ 31272 

зж SYNTAX: PRINT&"STRING" 
PES 

(С) 1985 C.STAMBOUL IDIS« 
3 ЖК КА ККЖ poene beoe 


VON GOP oe 


BUFR EQU  7A7DH E 
7AUSH E 
77ADH 5 
77B0H 


BUFFER FOR SEARCH STRING 
CONTAINS LENGTH ОҒ SEARCH STRING 
CUNTAINS CURRENT LINE NU. 

PT ТО START OF NEXT LINE IN FST 


A» OC3H ;SET UP 7%” VECTOR ТО POINT 
(72?%4H) , ñ 3 TÛ OUR ROUTINE 
HL, FIND 
(7775H) ; HL 
1E4DH ;DO ñ "NEW* 
1A19H sAND JUMP ТО * READY’ 
, HL НІ FOINTS TO SEARCH STRING 
358CH :MOVE STRING TU OUR BUFFER 
A» (LEN) s GET LENGTH ОҒ STRING 
A s SUBTRACT 1 
(LEN) >A sAND КЕРІ АСЕ ІТ 
а sIF NULL STRING 
2-ЕХІТ 3 THEN EXIT 
IX..C7304H) ;IX-START ОҒ PST/PTR TO NEXT LINE 
A» CIX*O) ;GET LSB OF РТК 
A sCHECK FOR ZERU 
NZ, CONT sIF МОТ, THEN CONTINUE 
"As CIX+1) sGET MSB ОҒ FTR 
A sCHECK IF ZERO ТОО 
. Z-EXIT ;MUST BE END OF PST» SO EXIT 
CONT ЕРИ 9644); 
H, (IX+1) 
(NEXT) , HL. sSAVE РТК ТО NEXT LINE 
L, (IX+2) 
Ha (IX+23) 
(NUM) > HL. 3 SAVE CURRENT LINE NO. 
IX "GET FOSITION РТК 
HL : INTG HL 
HL sBUMP TO 15Т BYTE ОҒ STATEMENT 
HL 
HL 
HL 
CALL 2B7EH :DE-TOEKEMISE CURRENT LINE 


> 
< 
> 
a 
a 
pes 
a 
pu 
m 
< 
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DE, 77ESH sDE= LOCATION OF EXFANDED LINE 
A: (LEM) sGET LENGTH OF SEARCH STRING 
B. ñ ;INTO B 

HL: RJFz— i sHL= BYTE BEFORE STRING BUFFER 
HL ЕРТ TO NEXT BYTE IN STRING 

A» CHL) sCHECE IF END ОҒ STRING 

A 

2-ЕХІТ sIF 50. THEN МЕ"КЕ DONE 

А, CBE) ПЕ- BYTE FROM STATEMENT LINE 
a ;CHECE FOR END OF LINE 

2, МОКЕ :IF 50, THEN PROCESS NEXT LINE 
DE 3;DE= NEXT BYTE IN STATEMENT 
(HL) sCHECE IF SAME AS STRING BYTEs 
NZ: FRE sIF МОТ» THEN TRY NEXT BYTE 
SCAN :CONTINUE UNTIL ALL BYTES FOUND 
A» ZOH :MUZT BE ALL THERE. 50 

33AH sFRINT A SPACE 

HL: МЫМ) sAND РКІМТ THE 

OF AFH ;CURRENT LINE МО. 

IX; (NEXT) sIX= РТК TÜ NEXT LINE IN FST 
WEST s BACE TO СНЕСЕ NEXT LINE 


ERRURS + 
BYTES FREE :- 1025 


LISTING 


100 Wee eee КЕ ЕЕЕ o Ee ЕЕ АЖ СЕ БЫ СЫ RER СЫ СЕ GE be ERU EE B HE HIC BE ЕЕ eR oe eoe f 
110 7 FIND.BA5 ж 

120 "ж FIND UTILITY FOR THE 92-200 МІСКО = 

130 7+ OQRG=7AZSH/31272 SYNTAX: FRINT&"S RINE ж 

140 ":* NB. STRING алыса» MUZT BE 16 CHARACTERS UR ж 

150 ` (C) 173 CHRIS STAMBOULIDIZ * 

160 "+ + 

170 

120 PORESOS42, 49: FPOKES0363, 122 "SET UF USR JUMP TO INITIALISE 
170 FORI-31z7zTOS13Z22:REAGDJ:C-C-J:FÜKEI:J:NEXT "SET МЕ ROUTINE 
200 IFC >1 S01SFPRINT'CHECKSUM ERROR" 2 S TOF "ERROR IN DATA LINES 
210 XzsUs3R(O) "i30 INITIALISE ROUTINE 
220 END 

230 DATA 62. 195,50, 145.121.5353.57,122.24.149,121.205,77.2 

240 DATA о 122,61,50,214,122 

250 DATA 249,239,221, 42,144,120; 221,126,0,133, 52:6, 221 

<60 DATA a 123,40, 223,221,110,0, 221, 102 15 34.176.121 

270 DATA 221.110.2.22152102.3,54.173.121,Z221.227,Z2Z2^5.35.35 

230 DATA 35,35,205.1206,45,17.232>121,53,214,122,71»53,156 

270 DATA 122.355,124.153.40,150.26-.153-40,17.19,190.32.236 

309 DATA 14,241,42,32,205,538,3,42,17353,121,205,175,.15, 22 

510 DATA 42,174,121: 24,174 


ЕДЕ ee СЕ et de da ы сы pi ik te op ok ie КК a i ЕЗ ЕН е ЕЕ ж 
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Yahizee dice 
loadedi 


With reference to Tumbling 
Dice by Ron Roberts in the 
November issue of APC І 
became suspicious of its 
“fairness” when Yahtzees 
with ones or sixes seemed 
almost impossible. Testing 
the random number ; 
expression used 
[R=INT(RND(1)*5+1.3] 
I found the probability of 
getting a one or a six half 
the probability of getting 
either 2, 3, 4 or 5. The 
following program verifies 
this claim: 
DIM N(6) 
FOR 1=1 TO 6 : 
М(І)--О : NEXT I 
PRINT 
FOR I=1 TO 1000 
R- INT (5*RND(1) 
+1.5) 
N(R)=N(R) + 1 
NEXT | 
FOR T=1 TO6 
PRINT T "-—-" МТ) 
100 NEXT 
May I suggest the more 
correct formula 
R=INT(6*RND(1)+1) 
for a fair game. 
W Holland 


VZ VARIABLE 
DEFINITION 


The statements DEFINT, 
DEFSNG, DEFDBL and 
DEFSTR are not implemen- 
ted in VZ-200 Basic 
(although the code for these 


is in ROM). А way of 
simulating these statements, 
without having to write great 
chunks of assembler, is to 
make use of the Variable 
Declaration Table located be- 
tween 30977 and 
31002 (7901-791AH). 

The VDT is 26 bytes in 
length, one for each letter of 


the alphabet. Each location 
contains a code defining the 
status of variables beginning 
with each letter: 


2 — integer 

3 — string 

`4 — single precision 
8 — double precision 


On power up and when- 
ever a program is RUN, the 
whole of the VDT is 
initialised to single precision 
(іе, each location contains 
a 4). 

The values in the VDT 
may be altered to define dif- 
ferent variable types. For 
example, if you wanted to 
define all А to Z variables as 
integers, you would put the 
following code at the start of 
your program: 


10 FORI= 30977 TO 
31002 ; POKE 12: 
NEXT 

This is equivalent to the 
*DEFINT A-Z' statement in 
Level ІІ Microsoft Basic. 

Alternatively, the following 
formula could be used to 
define individual variables: 

10 POKE 30912 + 
ASC("Q'"),3 

(This would define Q as a 

string as in DEFSTR Q’.) 

Note that Basic will not 
accept double precision 
variables as counters in 

FOR-NEXT loops. Also note 

that it is no longer necessary 

to use a suffix of '$' or '96' 

after a string or integer vari- 

able has been defined. 


C Stamboulidis 
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VARIABLE 
VZ 6070 


The following routine 
eliminates those massive if 
then lists like: ~ 


IFA=10THEN100 
IFA=20THEN110 
АҒА--ЗОТНЕМ120 
etc. 

After calling the routine, 
the variable ‘GT holds the 
value of the line to GOTO 


To use, simply compute 
your line number to GOTO 
(or GOSUB) and having com- 
puted GT simply GOTO or 
GOSUB 2 i 


F Olsen 


o 1000 seid ! 
ра өлде ХХХХ:” MUST LEAVE SPACE AND DO NOT ALTER FIRST TWO LINES 
Сат CGT 2 Uum боз. РК VIS. — qnas A = 
T TELEN(T$ ) LIPTC6THÉNT$ -T$ 4 CHR$ (32) «T$ : GOTO3 Ë SE 
4 FORC-2T05:PORE31478*C, АБС (МІ | | 


APC Apr 85 ӨЗЕГІ 


The ‘Variable VZ GOTO’ in | 
April APC does not work | 
due to an error in line 3. | 
Неге is z :evision that does! 


О GOTC1000 
1 GOTO12345 
2 T$-STRS(GT) 
3 IFLEN(T$) <6THENT$= 
T+” ” :GOTO3 
4 FORC=2TO6 :POKE 
: 31478 TC ASC(MID$ 
(T$.C,1) 
i :NEXT :GOTO1 | 
пе GOTO in line О сап be . 
any four digit number. If you A Pc Tul 25 (Q) à r € 
warit to start your main pro- 
gram at a line numbered 
less than 1000, then use 
zeroes to make up the four 
digits. For example: 
О GOTO0058 
To test the routine, enter 
these lines: 


95 LIST-1000 
1000 GT=95,GOTN2 
and RUN. і 

For а variable list, which 
can be useful when debug- 
ging a program, simply 
change line 1 to: `- 
1 LIST12345 


ыы. 


Lonely hearts 
club 


In reply to the letter "Basic 
Understanding” printed in 
the February edition of APC, 
| would like to commend 

S Hopson on the stand he 
has taken for the sharing of 
program knowledge. The 
computer which he uses as 
an example, the У2-200, 
has been greatly dis- 
advantaged by its marketing 
being limited to Australasia. 
This has meant that there... 
are very few books and 
other publications for it. The 
programs printed in 
magazines such as APC are 
among the few sources 
available for programming 
knowledge for this and many 
other home computers. 

It does seem a pity that 
more programmers do not 
comment on or explain the 

i various routines used in 
their programs. However, 
computer novices should not 
despair. LYSCo print a news- 
letter for the VZ-200/300, 
the Amstrad CPC-464 and 

the Commodore 16 and 


Plus/4. In the newsletter we 
print a host of hints and tips 
sent in by its readers and 
programmers. Entire pro- 
gram listings are printed in 
some éditions and we 
endeavour to answer ques- 
tions asked by the readers. 
These letters are completely 
free to people on our mailing 
list Anyone wishing to 
receive the newsletter 

should send a large stamped 
addressed envelope to 
LYSCo, PO Box 265, 
Bunbury, WA 6230 
specifying the computer they 
own. 

L Young 


APC May ss (5) 
р 52-83. 


VZ200 VIDEO 
HARDWARE | 
NTERRUPT 


This article details how to use the video hardware interrupt on 
the VZ200 and gives three simple examples of its usefulness. 


THE HARDWARE INTERRUPT is a 
very useful feature of a computer's capabil- 
ity, with many different applications. The 
usefulness comes from the ability to 'inter- 
rupt' the normal flow of software execution, 
diverting the operation of the CPU by ex- 
ternal means. The CPU can then be made 
to execute a separate, independent program 
before: returning to the original program 
execution. 

This description may sound like а 
GOSUB call to a subroutine in Basic, or a 
CALL to a subroutine in a machine code 
program, but there is an important differ- 
ence. The difference is that the interrupt 
can occur asynchronously to the normal 
program execution (that is, it can occur at 
any time unrelated to the progress of nor- 
mal program execution). 

This capability is extremely useful when 
the computer has to serve some external de- 
vice which can't wait for an action by the 
computer during normal program execu- 
tion. Such devices range from a digital-to- 


analogue converter (which must sample 
data at strictly regular intervals), to a soft- 
ware clock counter which needs to be incre- 
mented by an external hardware clock 
pulse. By using a hardware interrupt these 
devices can be served almost immediately. 
in the time it takes the CPU to complete the 
current instruction. 

The interrupt is called a hardware inter- 
rupt because there is a special pin on the 
CPU chip itself, which, when taken to 
ground potential (low or zero), initiates the 
interrupt sequence. This action is also per- 
formed by some external hardware device. 

The VZ200 uses a Z80 CPU chip, which 
has three different responses to this inter- 
rupt signal depending on the interrupt mode 
set in the internal interrupt register (IR). 
Note that we are talking about the INT 


case, not the NMI). For the VZ200 the in- | 


terrupt register is set to interrupt mode 1 
(by an ІМІ instruction) during the initializa- 
tion sequence. 

The response to an interrupt in Interrupt 


Lor 32 
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Steve Olney 


Mode 1 is to complete the current instruc- 
tion, save the program counter register 
(PCR) contents on the stack (allowing re- 
sumption of execution at that point upon 
returning from the interrupt) and then jump 
to location 0038 HEX. This could be viewed 
as a hardware version of the software 
RST 38 instruction. 


The VZ200 video interrupt 

Those of you who have access to a circuit 
diagram of the VZ200 will see that the inter- 
rupt pin (pin 16 INT) of the Z80 CPU is 
connected to pin 37 (FS) of the 6847 video 
controller chip. Reference to the 6847 data 
sheets shows that pin 37 of the 6847 chip is 
the video field sync output pin. This pin is 
pulled low by the 6847 chip during the verti- 
cal retrace period of the video output signal. 
That is, the field sync output pin goes low 
every 1/50 of a second (video frame rate of 
50 per second) causing the Z80 CPU to be 
interrupted and diverted to location 0038 
HEX every 20 ms. 

Scrutiny of the machine code (in ROM) 
at location 0038 HEX reveals a JUMP in- 
struction to location 2EB8 HEX. This jump 
is referred to as interrupt vector. 

The machine code at 2EB8 HEX contains 
several CALLs to various locations before 
returning to the original program execution. 
I haven't looked at these in detail, but most 
likely they are concerned with cursor con- 
trol and perhaps screen scrolling during 
listing. 

In any case, the code in which we are in- 
terested is near the start of the code at2EB8 
HEX. The first CALL after saving affected 
registers is to location 787D HEX. There 
are two interesting points to note here, The 
first is that location 787D HEX is in RAM, 
and secondly, this is the memory location 
referred to in the VZ200 Technical Manual 
(under System pointers) as the “interrupt 
exit". 

By PEEKing location 787D HEX (eg > 
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LISTING 1 


НЕХ CODE ММЕМОМІС 


LISTING 2 


188 S= -32268 : F = S +71" 
FOR I = S TO F 1 
READ D 
POKE I,D 
NEXT I 
POKE 50846,90 : 
РОКЕ 50847,128 м” 
POKE 39845,195 


DATA 245,62,42,50,51,112, 


ММЕМОМІС 


A, (783BH) 
B,8 
HL ,7818H 


NC, ZERO 
(HL) , 31H 


(HL) , зен 
HL 
LOOP 


RETURN 


LISTING 4 


108 S= -32768 : F = S + 29: 
288 FOR I = S TOF : 
308 READ D 
POKE I,D 
I 
50846,00 
39847,128 
32845,195 


Save 'AF' register because we alter it 

Load "А" register with code tor '#' 

Put it in the top right-hand corner of screen 
Restore ‘AF’ register 

Return 


START АТ 8000 HEX 
POKE THE 8-BYTE MACHINE CODE PROGRAM 
INTO MEMORY STARTING АТ 8000 HEX 


ENTER THE START ADDRESS OF THE MACHINE 
CODE PROGRAM INTO INTERRUPT JUMP 


“ EXIT АТ 787D HEX. 


241,281:' “DECIMAL EQUIVALENT OF HEX 


; save registers 
i we destroy 


load latch contents 

bit counter 

Start of screen display 
rOtate into carry and test 


; output '1' 


adjust to next display position 
go until all bits are done 
exit if done 


output "ø? 


adjust to next screen position 


i go until all bits are done 


exit 


"START АТ 8000 HEX 
POKE THE 8-BYTE MACHINE CODE PROGRAM 
INTO MEMORY STARTING AT 8000 HEX 


* ENTER THE START ADDRESS OF THE MACHINE 


CODE PROGRAM INTO INTERRUPT JUMP 
EXIT AT 787D HEX. 


245,197,229,58,59,129,6,8 
33,24,112,23,48,7,54,49 
35,16,248,24,5,54,48,35 


DATA 


16,241,225,195,241,201 


PRINT РЕЕК(30845)) you should find it 
contains 201 DECIMAL (0C9 HEX) which 
is the Z80 RETurn instruction. 


Using the video interrupt 

Let's just back up to summarize what 
we've discussed so far. Every 20 ms the Z80 
CPU is interrupted by the 6847 video con- 
troller chip. The interrupt mode (mode 1) 
causes the Z80 to jump to location 0038 
HEX. From here execution jumps to 2EB8 
HEX where a CALL to 787D HEX is en- 
countered. Location 787D HEX (in RAM) 
contains a RET instruction and so execution 
returns immediately and continues until 
2EDA HEX where a return from interrupt 
instruction (RETI) is found. Execution is 
now RETurned to the original program 
flow. 

Now, because location 787D HEX is in 
RAM, we can change the RET instruction 
at that location to a JUMP to some other 
selected location. At this location we сап. 
insert our own interrupt servicing code. 

Here is a very simple example to illus- 
trate this procedure. Starting at location 
3450 HEX in the Basic ROM is a subroutine 
which generates the 'beep' whenever you 
press a key. We can alter location 787D, 
787E and 787F HEX to contain a JUMP to 
3450 HEX to execute this ‘beep’ routine 
every time a video interrupt occurs (every 
20 ms). 

To do this we POKE the following 
machine code into memory starting at loca- 
tion 787D HEX: 


Mnemonic 
JP 3450H 


Hex Code 
C3 50 34 


Note: Remember location 787D HEX is 
CALLed every 20 ms, so you must not alter 
the RET at this location until you have ent- 
ered a valid jump address in the following 
two bytes. Otherwise the Z80 will jump to 
some indeterminate address depending on 
what random data was contained in 787E 
and 787F HEX. 

The following strict order should be used: 

POKE 30846,80 (POKE 50 HEX into 

location 787E HEX) 

РОКЕ 30847,52 (РОКЕ 34 HEX into 

location 787F HEX) 

POKE 30845,195 (POKE C3 HEX into 

location 787D HEX) 

Type in the above commands via the im- 
mediate mode (without line numbers). The 
text within the brackets should not be typed 
in as it is for information only. 

Once you have done this you should hear 
ап almost continuous beep from the internal 
speaker. Notice that there is nothing which 
interferes with this beeping. Well, almost 
nothing, as will be explained a little later. 
However, you can enter a Basic program as 
normal (except for the distraction of the 
beeping) and even RUN or LIST it. In fact, 
you can do all the normal operations (ex- 


cept tape operations — see below) without 
affecting the beeping. This is because the in- 
terrupt has priority over other software ex- 
ecution. So we see it is possible to have a 
Basic program running in the 'foreground' 
with a separate machine language program 
running in the 'background' being executed 
at regular intervals. 

To stop the beep all that is necessary is to 
change the JUMP instruction (0C3 HEX) at 
location 787D HEX back to a RET (0C9 
HEX) by: 

POKE 30845,201 


Tape operations 

As mentioned earlier, there is another ac- 
tion which will disable the ‘beep’. During 
tape operations, interrupts are disabled to 
ensure that accurate timing delays in the 
tape function’s machine code are not dis- 
turbed. So while you are CSAVEing, 
CRUNning ог CLOADing data to or from 
tape the beeping will stop. However, once 
the operation is over the interrupts are 
enabled once again and the beeps return. 

To enable the ‘beep’ again, enter — 

POKE 30845,195 
Note: Before typing the above, make sure 
that locations 787E and 787F HEX contain 
the correct jump address (3450 HEX)! 


Non erasable video display 

Next we'll look at an example which 
shows how the video interrupt can be used 
to put ‘non-erasable’ information on the 
video screen. 

Normally, any information displayed on 
the screen can be overwritten, cleared or 
scrolled off the screen, either during pro- 
gram execution or in the immediate execu- 
tion mode. By using the video interrupt you 
can display information which cannot be 
overwritten. 

The machine language source code is 
shown in Listing 1. 

Use the Basic program shown in Listing 2 
to enter and then to enable the machine 
code program shown in Listing 1. 

After you have entered Listing 2, 
CSAVE it before RUNning it. You should 
see an ‘*’ in the top right-hand corner of the 
screen. Try to erase this by any means you 
like and you will find the best you can do is 
to erase it momentarily (in fact a maximum 
of approximately 20 ms, the time taken be- 
tween successive interrupts). The only way 
to erase the ‘*’ is to disable the interrupt 
itself, or to disable the machine code 
program by: 

POKE 30845,201 
which POKEs a RET instruction (0C9 
HEX) back into location 787D HEX. 


Real-time system pointer 
display 

When programming in Basic a useful fea- 
ture would be to see a constantly updated 
display of various system pointers (eg start 


of program, end of program, start of free | 
space etc) to aid in keeping track of the pro- 
gress of these parameters. 

To illustrate this principle simply, we will 
display the contents of the output latch. A 
copy of the latch contents is maintained at 
location 783B HEX (307779 decimal). The 
latch controls the following: 


BIT FUNCTION 0 1 
0 speaker O/P #1 
1 unused > 
2 cassette O/P 


see note below 


toggles according to data 


O/P 
3 mode control Mode 0 Mode 1 
4 background colour green buff 


5 speaker O/P #2 see note below 


6 unused 


7 unused 


Note: During a key press ‘beep’ or execu- 
tion of the SOUND command, the software 
toggles bit 0 and bit 5. When it does this, it 
first looks at the state of each bit and then 
inverts that state. Normally each bit (0 and 
5) are the complement of each other, and 
the inversion of both at the same time gives 
a ‘push-pull’ like drive signal to the speaker. 
However, if both bits were the same, there 
would be no differential change when they 
are inverted, and so no output. You can 
therefore disable the ‘beep’ and the 
SOUND command by looking at both bits 
and then POKEing a value into location 
783B HEX (30779 decimal) which makes 
them equal. That is, if the contents of 783B 
HEX are even, then POKE back into 783B 
HEX a value equal to (contents + 1). Con- 
versely, if the contents are odd, POKE back 
a value of (contents — 1). 

Getting back to the latch display — to in- 
dicate the state of each bit, we will display a 
`0” or ‘1’ for each bit in the top right-hand 
corner of the screen. 

The machine language source code is 
shown in Listing 3. 

The Basic program in Listing 4 will enter 
and enable the machine code program of 
Listing 3. Note that Listing 4 is similar to 
Listing 2, so if you have already entered 
Listing 2 you can modify it to Listing 4. 
Once again, enter the Basic program (List- 
ing 4), and CSAVE it before RUNning it. 
You should see the contents of the output 
latch displayed in binary in the top right- 
hand corner of the screen, reading from left 
to right, starting with bit 7 across to bit 0. 
Change the background colour (COLOR,0O 
апа СОГОК І) and note the change in bit 4 
in the display. 


Cursor position pointer 

Edit line number 900 to: 

900 DATA 245,197,229,58,166,120,6 
ReRUN the program. 


3 of 3 


This will display the horizontal cursor 
position pointer (0-31) from location 78A6 
HEX (30886 decimal). Use the left/right 
cursor position arrows to move the cursor 
and observe the display. 


Basic program pointers 

Now edit line number 900 to: 

900 DATA 245,197,229,58,249,120,6 
ReRUN the program again. 

This will display the LSB (Least Signifi- 
cant Byte) of the ‘end of Basic program’ 
pointer. Try adding extra lines to the Basic 
program and note the change in the display. 
For example, add the line: 

1500 REM TEST 
Note down the binary value displayed and 
then edit line 1500 to: 

1500 TEST 
Compare the new display value with the 
previous value. 

This exercise reveals that although the 
short form remark symbol (7) occupies two 
screen spaces less than the long form REM 
command, it needs two more program me- 
mory spaces to store it than the long form! 


What next? 

These given examples are very simple 
ones designed to illustrate the basic princi- 
ple of using the video interrupt and do not 
show the full potential of the technique. I 
have written two programs which utilize this 
technique in a more complex fashion. The 
first of these is a real-time clock which is 
controlled by the internal clock of the 
VZ200. This gives a digital readout display 
in the upper right-hand corner of the 
screen. The real-time clock is implemented 
entirely in software (no need for extra hard- 
ware or modifications). 

The second program demonstrates a 
split-screen graphics mode with one part of 
the screen having text and lo-res graphics, 
with the remainder in hi-res graphics. 


Other applications 

These are but a few of the many possible 
uses of the video interrupt. Other applica- 
tions include: 

@ arcade games — synchronizing move- 
ment with the video raster rate to give 
smooth action. Mixed hi-res graphics and 
text for scoring, simulating instrumentation 
etc; 

ө stopwatch — event timer or lap-scorer; 
ө frequency counter — using the internal 
VZ200 clock to give the timing gate period; 
and 

€ real-time control — using the VZ200 as 
acomponent in a control system, eg burglar 
alarm. 

The list could go on, as anything which 
requires a reasonably accurate time-keeping 
function or synchronization with the video 
display, is a possible candidate. Which all 
goes to show that it's not always rude to 
interrupt! e 
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30862, 241 ҒАН 


—— 3, 143 X f H. 
START add. ға Н where needed іп your 
VZ- 200 program. 
Ф То get different colours 
- 2863] = 363 49 = RFFf4j instant colour you change the underlined 
number in the data. 


] If byly 


This short machine code 
routine will turn the screen 


— 28694 = 34361 z #FF E The numbers for the dif- 


ferent colours are: 


the colour you have put in O=GREEN 170=BLUE 
Di «tq the data — instantly!! = = 
Dis لاہ‎ lishing To call the machine code s n E 
ы. routine type X=USR (0) A Willows 
tac 
bap 7€ LD HL H < ¥2971 wu, 
hens Jh “ар HE рәп 219g м || 00010 FORI--28687 TO -28674 
асыла LD DE, тъъ H 73 284/32 "| | 00020 READA:POKEI,A 
; 30 NEXT 
ы FF ay 42 BC. FFH: ¥ 2047) Sa || 000 
? a pane 00040 DATA33.0.112,17,1,112,1 
3 ss LD (HL) SSH arp Y, »255,7,54, 985,237,176, 201 
І (00050 POKE30862, 241: POKE30863, 143 
ED Зь LDIR ; rpa} vahi 4% 
Се) Жет 
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LDI азиз, CA) Ts (ve) | 


- Block i 
h V.6($): A r 
Ime MA Move, ( ) lug 5S. 
inc DE 
de. , Ac 
Qe unt) Cz NOME 
peer un 55, type іп the listing, either at 
BACKG ROU N D the start of another ргодгат 
š or on its own, and CSAVE it 
Useg by б оскоут gem. VZ RUN the program апа, to fill 
the screen, POKE the code 
One of the limitations of the. for the desired character into 
VZ-200 is that it has only ; location 28672 (start of 


Fic top of rı navy haben loading 


Ё#°з” е, Се, 


Self loading 4 


two background colours іп 
each mode: green and 
orange in mode O, buff and 
green in mode 1. This short 
machine code program fills 
the screen with any desired 
character in either mode O 
or 1, making any of the 
eight foreground colours 
available as a background. 
To use the program just 


screen address) and enter 
PRINT USR(0). In mode 1 
and colour 0, O gives a 
green background, 85 gives 
yellow, 170 blue and 255 
gives a red background. In 
mode 1, colour 1, buff = O, 
cyan = 85, 170 = orange 
and 255 = magenta. 


1 Williams 


Disassembly fub SUMAR 
ыы vd AN s... | Basic listing: 
3A 9% 79 AD А, (oH) ; чч RAN. £v 26 
TM=PEEK(30897)+256*PEEK(30898)-20 “ Om 
I LD 5 А “Saver, B . m s 
7 ر‎ 1 20 POKE 30897,TM-INT(TM/256)*256:POKE PR 
SERA NL 30898,INT(TM/256) Ik Tom 
ay 88778 9727 4 30 ТМ-ТМ-1:А-ТМ-65536 Should be 
ТЕСІЛЕ? ТІККЕ 40 FOR I=0 ТО 15 Tine Tay 
50 READ D:POKE I+A,D “Т 
те LD (ux), 6. Пък ot (Hh) 60 NEXTI E Тш.) 
70 POKE 30862,TM-INT(TM/256)*256:POKE $ ; 
23 INC HL 30863,INTITM/256) cb el) 
80 DATA 58,0,112,71,33,0,112,17,0,120,112,35, 
DF RST ЈАН SRM 32 223,32 254,201 
20 FB TR Nz, FSH Зер nsus 
сә КЕТ Арс may ss Cls) pno. 
(аст ig) Orpa vu Ns IM 29 
ВэремФивел, 25 CLEAR So ! fiy Steck pies. 


30 Tm = Tra +i : Ë = -Т/-бзу36, 


10 RET"LOOP 4 V о 
fF 20° AS=INKEY# :A$- INKEYS ` 
. 30 IFAs$-"L"THENGOSUBOO" INSERT 
4@IF 8$-":"THENGOS:IBSO" INVERSE” 
:SOUND 29; 1 | 


` 50 GOTO20"LDOP ` 

` б@КЕП“ INSERT 
20 PRINT" INSERT” :SOUND32, 2 :RE TURN 
89 REM" INVERSE 

90 PRINT" LNUERSE" : RETURN 


Sample listing 


APC Aug. sç Р10-3. 


(s) 


Reversed REM 


Labelling subroutines with 
REM statements that 
describe the functions of the 
subroutines is obviously 
helpful to the programmer 
who has trouble remember- 
ing what parts do what 
when designing a long 
program. 

One way to make the sub- 
routines stand out in the 
LISTing is to use inverse 
REM statements. But the VZ 
computer will not straight- 


forwardly accept REM 
statements in inverse print 
— such REM lines are not 
entered into the LISTing 
when return key is pressed 
and the SYNTAX ERROR? 
MESSAGE displays. 

This can be simply over- 
come by preceding an 
inverse REM statement with 
quotes. 

120 REM"AN EXAMPLE 
end quotes are not needed; 
the underlined characters are 
in inverse form — do not 
inverse the word REM! 


Having suitably named our 
subroutines, wouldn't it be 
great if we could call those 
subroutines by name instead 
of GOSUB a line number? 
The VZ does not imple- 
ment procedural calls, but 


we can simulate this desir- 
able feature by placing the 
name we have given the 
subroutine immediately after | 
the GOSUB number: 

30 GOSUB120"AN 

EXAMPLE" 
and because the name is in 
inverse form here also, it 
stands out clearly in the 
LISTing that this is a call on 
that particular subroutine. In - 
the case of a GOSUB you 
must use end quotes also if 
any further statements 
follow the GOSUB on the 
same program line. 

GOTO can be treated in 
the same way — simply give 
a REM name to the block of 
code you GOTO. 


R Quinn 


Ditassembled Іні 


2A 6 17% 
23 
22. 4, 2% 


Ca 


LD HL, (72634) 
INC HL 


¿p (4 06-9), HL 
RET 


REAL Tl ME 205 POKE 30845,195 
210 RETURN 


(10 К Тһе subroutine at 1 50 is 
С used to set up a simple 

The following set of _ machine code progran 
subroutines can be used to "RA 2n кнрет doppie * 
pr d ан OF NOV time the VZ-200 interrupt 
100 "Х-ТІМЕ & STOP routine is executed, which is 


105 POKE 30845,201 50 times every second. 


110 X=PEEK(LC)+256" When the time is read by 
РЕ. ا ا‎ calling the subroutine at line 
130 ‘ZERO В DISSABLE 100, the value returned in X 
140 POKE 30845,201:POKE should be divided by 50 to 
ma VC PONE LC+1,0 read the number of seconds 
182 SE! U TIME ROUTINE TO Starting, use 
130: 
L=30816:RESTORE GOSUB 200. To zero the 
ар READ X timeclock, use GOSUB 130. 
E Кезі “GOTO 160 To read the time without 
170 POKE 30846,96:POKE stopping the clock, use 
30847,120 GOSUB 110. 
180 DATA 42,104,120,35,34, To read the time and stop 
n kis the clock, use GOSUB 100. 
190 RETURN Be sure that before you 


use any of these sub- 
routines, you do a GOSUB 
150 to set up the right 
routines. Your main program 
should not use the variable 


LC as this is used in these 
timing programs. 


C Griffin 


200 'START TIME 
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» Feld ғұз ҙоу2А2 
add 1 


shove ak 2oyz4D, 


| BENCHMARKS 


BENCHMARKS || 


А list of Benchmarks used when evaluating micros is given below. 
An explanation can be found In the February '84 issue. 


100 REM Berchmart 1 
110 PRINT "S" 

120 FOR K = 1 TO 1000 
130 NEXT K 

140 PRINT "E" 

150 END 


100 REM Веуч ету 2 
110 PRINT "S" 

120 K=0 

130 K=K+1 

140 IF K<1000 THEN 130 
150 PRINT "E" 

160 END 


100 REM Benctwnark 3 
110 PRINT "S" 

120 K=0 

130 K=K+1 

140 A=K,K*K+K-—-K 

150 IF K -1000 THEN 130 
160 PRINT “E” 

170 END 


100 REM Benchmark 4 
110 PRINT "S" 

120 K=0 

130 K=K+1 

140 A=K/2°3+4-5 
150 K<1000 THEN 130 
160 PRINT “E” 

170 END 


100 REM Benchmark 5 
110 PRINT “5” 

120 K=0 

130 K=K+1 

140 A=K/2*3+4-5 

150 GOSUB 190 

160 IF K<1000 THEN 130 
170 PRINT "E" 

180 END 

190 RETURN 


100 REM Benchmark 6 
110 PRINT "S" 
120 K=0 


130 DIM M(5) 

140 K=K+1 

150 А-К/2%3-4-5 

160 GOSUB220 

170 FORL=1 TO 5 

180 NEXTL 

190 IF K<1000 THEN 140 
200 PRINT “E” 

210 END 

220 RETURN 


100 REM Benchmark 7 
110 PRINT "S" 

120 K=0 

130 DIM М(5) 

140 K=K+1 

150 A=K/2*3+4-5 
160 GOSUB 230 

170 FOR L=1 TOS 
180 M(L)- A 

190 NEXTL 

200 If K<1000 THEN 140 
210 PRINT "E" 


220 END 
230 RETURN 


100 REM Benchmark 8 
110 PRINT "S" 

120 К-0 

130 K=K+1 

140 A- K^2 

150 B=LOG(K) 

160 C = SIN(K) 

170 IF K «1000 THEN 130 
180 PRINT "E" 

190 END 
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VZ DELETIONS 


The VZ-200 computer is 

a much more powerful 
machine than appears. Many 
of its facilities slumber 
because someone has made 
a marketing decision to 
restrict Basic access to cer- 
tain facilities. Here-is how | 
one of them can be 
awakened. 

DELETE is a Basic editing 
command that allows you to 
erase a block of Basic lines 
from a program in one go, 
instead of having to 
eliminate them one by 
one by entering each line 
number and pressing the 
return key. 

Suppose, for example, you 
want to delete lines 250 to 
530 from a program. Add 
this line to your program: 

O D250-530 

Now enter the following 
commands and press the 
return key: 
POKE31469,182:RUN 

If you now list the 
program you will find the 
absence of all those lines 


you desire to be rid of. 

The content of line O will be 

invisible. Having accom- 

plished your goal you can 
delete line O in the conven- 
tional way — enter О and 
press return. 

O D-x where x is an end 
line number will, when the 
above POKE is made and the 
program RUN, eliminate all 
lines from the first line 
in the program (which of 
course will be line O:) to 
line x. 

On another matter, try this 
line: 

10 FORR=5TO485STEP32: 
PRINTGR,""; :INPUTA: 
PRINT@R+16, "А=";А: 
NEXT 

What it shows is that 
PRINTG and INPUT state- 
ments will not work together 
on odd numbered lines 
(counting down the screen 
0,1,2....,16). A numerical 
INPUT will always return O; 


а string INPUT will return 


the null string. So take care 
when programming with 
these two statements. 


R Quinn 
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VZ EDITOR/ 
ASSEMBLER 
TIPS 


To enter hi-res mode (mode 
(1)) in assembler set bit 3 of 
address 6800 H(26624) to 
1. For example: 7 ` 

LD A,(6800H) ; Load A with 


content of 6800H 
OR 8 ; Set Bit 3 of A to 1 
LD (6800H),A ; Load new 

information back 
LD (783BH),A ; into 6800H 

and 783BH 

If you want to change the 
background colour to buff 
(normally it's green), instead 
of [OR 8], as above, change 
that to OR 24 (setting bit 4 
to 1). 

(783BH) is the copy of 


(6800H). It is important to 
load A into (783BH) if you 
want to use the sound 
driver routine in ROM, 
because the SDR does a 
Read (783BH) to see what 
mode you are in, and loads 
that into (6800H). 

` To Call the sound driver 


. routine 


LD HL, Frequency 
LD BC, Duration 
Call 345CH 

Before returning back to 
the. Editor/ Assembler use 
the program below to clear 
bit 3 of (783BH). If you 
don't, the screen will change: 
to mode (1) (hi-res) when 
you use [Tape Save] in the 
Editor/Assembler. 
LD А(783ВН) 
AND 247 
LD (783ВН),А 
T Lam 
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LOW COST PROGRAM 
GIVES VZ200/300 FULL 
LEVEL ЇЇ BASIC 


Ever wished that your little У2200 or У2300 would run full 
Microsoft Level II BASIC instead of just a stripped-down 
version? You needn't wish any longer thanks to an 


enterprising local programmer. 


REMEMBER STEVE OLNEY? If you’re 
a VZ200 or VZ300 owner and BASIC 
programmer, you should. We’ve published 
at least three of his articles so far, mainly 
on resurrecting dormant functions and 
statement keywords in VZ BASIC. One 
was in the March ’84 issue, another in 
October "84 and the last in May '85. 

Steve’s a very knowledgeable guy when 
it comes to the VZ200/300, іп terms of 
both software and hardware. He’s spent 
quite a lot of time burrowing into its little 
secrets, and probably knows as much 
about it as anyone in Australia. 

I know that sounds a bit like paeaning 
in his pocket, but I’ve just been trying out 
the latest fruit of his labours. And this 
time it’s not just an article showing you 
how to restore a few more missing func- 
tions to VZ BASIC. It’s a machine lan- 
guage utility program that restores pretty 
well the whole blinking lot for you — in- 
stant Level II BASIC! Hence my little 
paean of praise. 

Steve calls his new utility Extended 
BASIC Version 2.2, or ‘EXBSV2.2’ for 
short. It is available on either cassette 
tape or disk, to suit both basic and ex- 
panded VZ systems. It is also compatible 
with both the VZ200 and VZ300, and with 
the current Disk BASIC (V1.2 DOS). 

You load EXBSV2.2 into your VZ be- 
fore you load in anything else. It is only 
about 1600 bytes long (about 1.5K) and is 
fully self-locating, finding the top of avail- 
able RAM and installing itself there. At 
the same time it lowers the BASIC ‘top of 
RAM’ pointer to prevent any other pro- 
grams from being loaded over it. 

As part of the installation it patches it- 
self into ROM BASIC, in much the same 
way that Disk BASIC does, to become 
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| transparent to the user. All tat you're 


aware of is that the RAM 15 now about 
1.5К smaller than before — plus, of 
course, the fact that your trusty VZ now 
responds to no less than 25 new BASIC 
commands! 

Of these 25 new commands, 23 are basi- 
cally resurrected Level II commands that 
have been sleeping there all the time in 
Ше VZ's ROM, quietly waiting for 
EXBSV2.2 to sound the trumpet. They're 
listed in the table. The other two are ex- 
tras — a bonus that Steve Olney has 
thrown in for good measure. And very 
handy thay are too: MERGE, to allow 
you to combine programs and routines, 
and RENUM to let you rationalise and 
tidy up a program whose line numbers 
have becóme a mess after a lot of editing 
and patching (or after using MERGE). 

All of the 25 new commands are fully 
functional, and when used in a program 
can be LISTed — at least on any machine 
with EXBSV2.2 loaded. All but two of 
them will even RUN on a VZ which does- 
n't have EXBSV2.2 loaced! The two ex- 
ceptions are ON and ERROR, which arise 
because of a conflict in token codes (nor- 
mal VZs use the normal ERROR token 
for the added command SOUND). 

Even here Steve Olney has provided an 
answer, for those who really do want the 
Level II programs they generate to be 
capable of running on plain-vanilla VZs 
(how helpful can the guy get?). He's done 
this by providing the listing of a short 
BASIC routine which you can MERGE 
into the top of your programs after they're 
finished and debugged. You then use it to 
convert your finished programs 

When it has finished, you DELETE the 


| routine itself (notice that?) and CSAVE 


Apy yí 


Jim Rowe 


the converted program. It won't LIST 
properly any more, but it will now RUN 
on a VZ without EXBSV2.2 installed. 
Тһеге'$ just one tiny catch: you can't use 
the construct ‘IF <expression> THEN 
ERROR <n>’ in any program that you 
want to convert in this fashion. You can 
only use ERROR in the ‘ON ERROR 
СОТО” construct. Not a serious limita- 
tion, but worth remembering. 

But back to EXBSV2.2 itself. Normally 
you'd expect to load this into your VZ 
every time you turn it on, which is easy 
enough and only takes a couple of seconds 
with the disk system. And with the utility 
installed, all of the new commands are at 
your disposal. 

It's great to be able to use direct com- 
mands like DELETE, AUTO, TRON and 
TROFF, RENUM and MERGE. How did 
we ever get along without DELETE? It's 
so damn useful — not to say virtually es- 
sential when you want to scrub a whole 
range of program lines. 

Then into the actual programming. It's 
really good to be able to use double-preci- 
sion constants and variables again. Plus to 
be able to define variables as integer, sin- 
gle, double or string type using DEFINT, 
DEFSNG, DEFDBL and DEFSTR. It's 
also much neater to be able to use ON- 
GOTO and ON-GOSUB, instead of a 
flock of IF-THENs. Not to mention being 
able to use ERROR, ERR and ERL. It's 
nice to be able to use RESUME and 
RANDOM, too. 

Of course there's also FIX, FRE, and 
MEM — plus familiar old mates like 
CINT, CSNG and CDBL, POS and 
STRINGS (handy in setting out screens, 
that one — I missed it). And of course the 
very versatile VARPTR. Wheee! Makes 
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| TABLE 1. WHAT EXTENDED BASIC PROVIDES | 


System Commands: 


AUTO automatic line numbering for program entry 
Беке: DELETE delete a line or group of lines 

you feel a bit like Uncle Scrooge let loose TRON enable trace function (for debugging) 
in the Mint (well almost). TROFF disable trace function 

All of the new commands and functions MERGE merge tape program with program in memory 
seem to work perfectly. I certainly mS : renumber program lines 

(f eese ements: 

couldn't a а ny E SE AUS if pee DEFINT define variable as an integer 
аге amy, MEy TO Pretty WEN MOGEN. FLOM DEFSNG define variable as single precision 
a functional point of view, my VZ now DEFDBL define variable as double precision 
behaves like any other Level II machine. DEFSTR define variable.as string type 

So thanks to EXBSV2.2, Steve Olney's ERR error code 
Mar сл RM a ERROR died io inus sq amar lion 
those old TRS80/ System80 programs and ON-GOTO branch to one of several line numbers depending upon the value of an 
get them running on your trusty VZ. The expression 
graphics will need a few mods, of course, ON-GOSUB branch to one of several subroutines depending upon the value of an 
but the programs themselves will be fine. expression 

And the cost of this magic ute? A mere RANDOM reseed random number generator | 
$15 for the tape version, or $22 for the ете ME continue program execution after error handling 
disk version. Both prices include packing CINT convert variable to an integer 
and postage, and EXBSV2.2 comes com- CSNG convert variable to single precision 
plete with a set of driving instructions. CDBL convert variable to double precision 
You couldn't get much better value for FIX return truncated integer part of a number ` 
money — obviously Steve Olney is not out FRE returns the amount of free memory remaining 
ton ff MEM returns the amount of free memory remaining 
o np anyone оп. Я , POS returns the current screen cursor position 

Гуе only got one complaint. Couldn't һе STRING$ returns a string of specified length 
have given it a name that's easier to pro- VARPTR locates a variable in memory 


nounce and type, like ‘Jeannie’? Try typ- 
ing EXBSV2.2 all the way through a re- 


x 
is going to want. And at this stage you can 
only get it direct from Steve Olney at 200 
Terrace Road, North Richmond, NSW 


2754. I only hope that his local post office 


view, and you'll know what I mean! 
is prepared for the onslaught. 
: ө 


Still, whatever he cares to call it, it's а 
utility that almost every VZ programmer 


ЕТІ Nov. 85 р. 95. 
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: simply poke the starting 
VZ USER For'example address of the code for your 
00000011 11000000 user definable graphic into the 
00001100 00110000 memory location 44808/9 
GRAPH ics ое че у: and the screen position of 
«d ES : .your user definable graphic 
1000 A=44800:8=65536 00110000 11001100 into the memory location 
1010 READ C:IF C=1THEN 44 / 
00001100 00110000 805/6. 
1070ELSEPOKEA-B,C 
:A-A--1:GOTO1010 00000011 11000000 Sample Program 
1020 DATA245,197,213, 00000000 00000000 


5 GOSUB 1000 


229,33,0,0,17,0,0 
1030 DATA14,8,26,119, 


10 FOR T=45000 TO 


45015 
р 35,19,26,119,6,31 20 READ S:POKE 
1040 DATA35,5,120,254, T-65536,S 
0,194,20,175,19,13 | 30 NEXT T 
1050 DATA121,254,0, i | 40 POKE 44808-65536, 
194,12,175,241,193 | 200:РОКЕ 44809- 
1060 DATA209,225, | 65536,175 
201,-1 50 POKE 44805-65536, 
1070 POKE30862,0:POKE О:РОКЕ 44806- 
30863,175:RETURN 65536,112 
This routine will provide Refer to the technical 60 MODE(1):X=USR(0) 
any VZ programmers with manual for more details on 70 GOTO 70 
the ability of creating their 


high resolution graphics. 


1080 DATA 3,192,12,48, 
To activate this routine, you 


51,12,192,3,48 
1090 DATA 204,12,48,3, 
192,0,0 


own definable high resolu- 
tion characters in 8x8 pixels. 


APC Jan 210) % 932275, 


Ағс5Н = 40092 ; Сен 3299»; Af H = 1755 


им e Che 
AF Fç Tus4 AF | Save reg. AFI) FE х СР So H ; y EH z : 
w Evi Cs Posy 4c 4, Yack: "W ۹ С> 14 АҒАЗР N2 Ati H 1 52% MeL 3 
82 Ds PUSH DE ; w IC эз INC DE j Nx grephics chee. 
| I Ы aie ees 
у 33 Es Рон HL ^ “ D vb DEC C қ Eu Co 
` LDA,C ' €^ А 
эз, BBR TR tb Май; жеме pse. |" IÉ qQ 3 BT 
ew] и С АҒ Ly DE, AFCS Н, ме du ерни |у IF FESO Cf sa W re | 
QA ЗЕ SS LD С, Ə)MH.; T byks грез, |“ 2! CnC АҒ TF м2 AFNCH; w nat pois | 
“җе 1А {> A, (DE), deck A. |а P Por АҒ " 
; m с PoP BC соме - 
4%» 77 4\ LD (м), В. Зеб dose | 26 ©! md 
` QE 23 5 INC HZ * Mx) Sern loc, “24 2, бог DE valova С 
J 
4 54-.4 
5 еее та ОМ 427 Ë) PoP HL ; 
vaf 3 : INO DE e) е 1 En 
A s| A, (DE) ¿wk ak A2 C £3 
ii } , | im 8x2 ММ Com ВЕСЕ К 
n 7 í LD (м), А . gl озше. Pragyan rds im | 
i [ ° 1 » ol Sty. 
v ЖІ LD 5; згн. &= 30D, (е) and puts th onte 4» Ӱр ІН comme 7 
ғ 
“14 23 j| Ince HL j Ne Sun pos. ic othe Presa. as алд by Або le. | 
~S WS 3 DEC 5 2 6:5 6-1, N.) a peces d esed progress "x 
v Š : 
“х 38 "lo 6,85 =Ó. A. hes soma chuc lo pesa t potential, 


Sprites 2 


"Hb Mx 2:4 e hgant} 
if a 


4. hu („ы Subreukinas M Yared. 


Procedure humbe- of Calls 
‘Gre coding sugguided is dread ful = 


UR a FoR- Мех т losy h load ы) 


Background. to matted. 

CA. USR( ) command eye. 
е0 Раку an ar peer: Че | 
Subveubinn hain, called. 
(4) в paqa. ТЫ argummat A slovd im 

455 ms& سے‎ 
‚ 2/809 à 30l0 (ҙа Н + 7922 H) lais 
maMed pars Ha stank addres of ا‎ require 
UN Шы “Sump” төх, TK 


RET in Un 54 Мал cald goes back 


Ом a dummy 


Via 
1, BASIC А 


Conicari] та M. d. 


1332. = 3450H sladd, Lom generate bay 


0; 


13404 3«$CM. s}, edd, Rom елес Sow, 


f m ar, fise Sus, Rom vtd as exec pls, ) 


lia to pole Shoh а "зер sold reti . 
là 3e pols — 34rC H < "gom, «дәш, 
LM. bula by UK cerned, hiar 
2o anf 4o. Note dummy argum? 
рим. 


Bette 
LD 
ye (HD 


I|] 


HE 2H 


мух. 


МАСНІМЕ 
LANGUAGE 
CALLS 


This simple VZ200/300 

routine can save program- 

mers from using lots of 

POKE commands in a Basic 

program when calling a 

lot of machine code sub- 

routines. 

Conventional method: 

To call the address 13392 

& 13404 

10 POKE 30862,80:POKE 
30863,52 

20 x=USR(0) 

30 POKE 30862,92:POKE 
30863,52 


40 X=USR(0) 
New method: 
10 X=USR(13392): 
X=USR(13404) 
ain program: 
O POKE 52992-65536,58: 
POKE 52993-65536,33 


`1 POKE 52994-65536, 


121:POKE 52995- 
65536,50 
2 POKE 52996-65536,13: 
POKE 52997-65536,207 
3 POKE 52998-65536,58: 
POKE 52999-65536,34 
4 POKE 53000-65536,121 
:POKE 53001-65536,50 


Б POKE 53002-65536,14: 


POKE 53003-65536,207 
6 POKE 53004-65536,195 
:РОКЕ 30862,0 
7 РОКЕ 30863,207 
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Disaster bled Н 


Сғә ЗА 2 19 
w3 32 w Cr 
86 ЗА 22 74 
жа 32 ЧЕ CF 
СҒАС C3 nn nn 
(486 (mse) 


IS bota in all, 


¿> А, (4921 н) 
LD (cess), A 
AD A, (7922 н) 
ap (CFSE a), A 
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Those rotten manufacturers still insist on making machines that won't IS the same on every single machine featured here. Due to the SHARED INSTRUCTIONS ABBREVIATIONS USED IN THIS CHART: 
talk to each other in the same language. Some enlightened people limited amount of information we can squeeze into each box, it 
are having a go with MSX, but in the meantime and in response to hasn't always been possible to indicate the full power of every state- ABS (exp) addr — address 
Australian overwhelming demand, here's the 1986 APC Converter Chart. ment. It should be assumed, therefore, that we're dealing with the COS (exp) exp = expression 
Personal We've added seven new Basics, covering the latest machines, and most common uses of each statement, and that other uses may be END NB not available on 01 parm(s) = parameter(s) 
revised and updated the chart. It isn't possible, of course, to cover available. FOR var=exp TO exp [STEP exp] stmt = statement 
Computer every micro nor every command supported by each of the machines Something to- watch out for: identical syntax may have different LEN (string) МВ Space must be present for Memotech var = variable 
included. What this chart aims to do is to provide an at-a-glance effects on different machines. Watch out especially for SYSTEM LET уаг-ЕХР NB LET obligatory after THEN and ELSE on MicroBee Square brackets [] indicate optional code. 
syntax comparison using Microsoft Basic as a reference point. The and RND. REM text 
chart won't convert programs for you but it will save you the trouble — You'll notice we haven't included anything on sound and graphics: SIN (exp) 
of getting hold of piles of manuals — and even when you've got thats too complicated for a quick reference chart, but we've covered SOR (exp) 
them its often the beginning, not the end of your worries. the subject in a series of articles which will appear in APC for STOP 
W A L L C m A RT To use the chart, first check that the keyword you want isn't in the a range of machines. TAN (exp) 
box on the right. If it is, then you're lucky: it's one of the few that VAL (exp) NB not available on QL 


BASIC RESERVED WORDS & FORMATS 


DATA DEF 


Gives one-char CLEAR all [or Closes disk files Lists data to be Define arithmetic Allocates space Raises to power Returns remaining Read a record from Branch to a Basic 
string with ASCII selected] variables. — closes all files used in a READ string function. for arrays, 


1 line. of expression. memory space. disk or tape file. subroutine. 
MI CROSOFT - 7 i if code of exp. if no specification. statement specifies max 


subscript values. 
ASC (string) ATN (exp) „маг, ы P CHRS (exp) CLEAR [exp, exp] DEF FNvar EXP(exp) FRE[exp) GET [ #] lineno GOSUB lineno If exp THEN 


[(var,var . . .)] [record no] or [ELSE stmt] 
=exp INPUT #fileno, var 

[var . . .] for 

sequential files 


H 
š 
š 


COMMODORE 64 & VIC 20| ` мн ен s We emas [rese 


ASC (string) 


ІВМ PC-BASIC A s |2 == E= 


ay 
channel no 
ASC (string) z 5: 


ix 
CLOSE [fileno} 
if exp is given 


If exp THEN stmt 
[ELSE stmt] 


lf exp THEN stmt 
[ELSE stmt] 


2 
Ы i 
KEE 


GOTO lineno if exp THEN stmt 


[ELSE stmt] 


IF exp THEN 
stmt [ELSE stmt] 


: 
| 


ni 
ГИ 
ТТ + 
ЕТ n IB 


If exp THEN stmt 
[ELSE stmt] 


If exp THEN stmt 
[ELSE stmt] 


TANDY COLOR E 


IF exp THEN stmt 
[ELSE stmi][END IF] 


Ri 


ПІ 


LEFT$ 


Returns specified 
no. of characters 
starting at begin- 
ning of string. 
LEFTS (string, 
length) 


STANDARD 
MICROSOFT 


of expressicn. 


INPUT [string:] 
vai, var . . .] 


PRINT [[#] 
fileno] [exp] 
Leo...] 


LUST [lineno, ow GOSUB 
lineno] 


[йпепо...] 


i 
] 


33 
НЕ 


var $=1МКЕҮ$ 


i 


UST [1st line] 
{Чая line) 


13 


IBM PC-BASIC A 


MICROBEE 
MSXBASIC ЫЕ 
TANDY 100 

TANDY COLOR 


TRS-80 II/SYSTEM 80 


: 
i 


ИР 


1 s 
1 š 
Š 


RANDOMIZE} READ RENUM RESUME | RETURN RND STRINGS WHILE/END 
ST AN D ARD Reset random Read from data Change program Retum from Generates г Retums a string of Execute 
number generator. statements into line numbers. ili i ON ERROR sub- t random nu aber. 1 i specified length. Я ] : " f err а. = 
specified variables routine to stmt . containing speci- 4 L ILE/WEN. 
: 60 i . бей character. long i 
MICROSOFT RENUM [lineno, се — a == ES = _—= 
val] length) string) 


3 


| 
| 
| 


i — 


-. е 


| 
RENUM 9 start по] | RESTORE [lineno] RI 
[ 

( 


"қы | лы | иан 
БЕ کو‎ а 


: it 
š š 


MICROBEE ШЕН Бай 

TANDY 100 РН 
TANDY COLOR Ew ad 
SINCLAIR QL | жы uo 
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WALLCHART 


STANDARD 
MICROSOFT 


Those rotten manufacturers still insist on making machines that won't 
talk to each other in the same language. Some enlightened people 
are having a go with MSX, but in the meantime and in response to 
overwhelming demand, here's the 1986 АРС Converter Chart. 

We've added seven new Basics, covering the latest machines, and 
revised and updated the chart. It isn't possible, of course, to cover 
every micro nor every command supported by each of the machines 
included. What this chart aims to do is to provide an at-a-glance 
syntax comparison using Microsoft Basic as a reference point. The 
chart won't convert programs for you but it will save you the trouble 
of getting hold of piles of manuals — and even when you've got 
them its often the beginning, not the end of your worries. 

To use the chart, first check that the keyword you want isn't in the 
box on the right. If it is, then you're lucky: it's one of the few that 


ASC CALL 


Returns ASCII Calls assembler 
value of first language sub- 
character ol string. 


CHAIN 


Call a new 
program & pass 
variables to it, 


BASIC RESERVED WORE 


BASIC CONVERTER 


IS the same on every single machine featured here. Due to 1 
limited amount of information we can squeeze into each box 
hasn't always been possible to indicate the full power of eve 
ment. It should be assumed, therefore, that we're dealing wi 
most common uses of each statement, and that other uses | 
available. 

Something to: watch out for: identical syntax may have diffe 
effects on different machines. Watch out especially for 5Ү51 
and RND. 

You'll notice we haven't included anything on sound and gra 
thats too complicated for a quick reference chart, but we've 
the subject in a series of articles which will appear in АРС ' 
a range of machines. 


CLOSE 


Closes disk files 
— closes all files 
if по specification, 


CHR$ 


Gives one-char 
string with ASCH 


CLEAR 


CLEAR all [or 
selected] variables. 


CONT 


CLEAR [exp,exp] CLOSE 


ГУ 


т қа —— i былау 
KO ш. PEEL. алтын ON o em 


ka ^ E py ы Z 5 NS A y EE “ASC (s ring) Б 
L | E b А 
" | 
= АИА: 


COMMODORE 64 & VIC 20 
IBM PC-BASIC A 


| 


STANDARD 
MICROSOFT 


Peers 


aa АҒЫНЫҒ 


INKEY$ INT LEFT$ LIST 
Returns character Evaluates Returns. specified List specified 
typed at keyboard expression for no. of characters program lines at 
or null if no largest integer starting at begin- terminal. 
character used contained. ning of string. 


ДЕР UPC ДК 

E | 

X4 co Aj йе» H 7 
CLOSE #fileno 


CLEAR [(exp)] — 
Clears string 


LLIST LOAD 106 MID$ 


List specified Load a program Natural logarithm Gives specified no 
program lines at file into memory. of expression, of characters to tl 
printer, fight of start 


sition in string. 


INPUT [string:] 


INT (oxp) 
varf,var . . .] 


LEFTS (string, 
length) 


LIST [lineno, 
пепо) 


ШТ [lineno, 
lineno] 


LOAD 
(“Нюпате”| 


MIDS( string, start 


10! 
ux. (іші) 


guieuo|y,, 0091) 


E | 
[4] әрош nado 


wÁq'ppe 3404 yeys buus) SOIW 
"uoisseudxo jo 

vonenjena Aq pay! u 

э жір ued) шш! 


N3dO 


бхә= [(suued] 
зелу 330 


dxə= [(suued ] 
зелу 330 


(өт) жк] 7 
оиәш 80509 


“sou ше;божі 
payloads 84490 


313130 


10 uo әјцепеле you gy (dxe) WA 


(dxa) NV1 
d01S 10} Jd U! jeedde ji 
(dxa) HOS paıan03 әл ам yng eya aau 
(dxe) NIS 52146218 pue punos uo fi 
xa Way 
‘apoo jeuondo ayeaıpu! |) ѕзәэезд aenbg aago uo 35713 pue МЭНІ 1842 AsojeGygo 131 AN dXI=A 131 WALSAS 10) Ájjeiadsa 1 
ajqeuea = 18A yoajowayy 10, Juasaid aq јѕлш әзейс gy (бидѕ) N31 jualayip әлеу Леш хеји, 
juaugjejs = jungs [dxe 4315] dxe 01 — dxe—ie^ y04 
(s)ejeueied = — (s)uued TO uo ejqejie^e jou gN üN3 әд Аеш sasn 1əul0 jeu риє 
uoissaidxa = dxə (dxa) $02 аш шім бшүеәр әләм yey 
ssaippe = ірре (dxe) sav -8jejs Alana |0 samod inj әш 
y “ход цова ozu azaanl 
НУНО SIHL NI 0351 SNOLLVIA3U88V SNOILONYLSNI Q38VHS аш 0} ang “aay ра 


98, 


ЧН dil 


ШҮТНІ5 


1X3N 3WNS3H 20 
[ошай] 3wnsau 


V 2ISV8-)d МІ 


— 11050018 
ШЕ "УЗИ змон тана; 


3010) AQNYL 

001 Лану: 
|... 2IS8 XW 
33801D1W 

= | il. mim V JISV8-2d WAI 


E P x 222100 IA З 79 1400100102 
x = 388 


“828182 yels-u- 
(oup vues 


bill. illl 


PRINT [ # fileno] 
WHILE/WEND loop 
as long as exp is true 


POKE addr byte 


[to read] or fileno= 
OPENOUT [to 
weite] 

DISC OPEN # 
channel no, 


ON exp GOTO 


lineno 


ON var GOSUB ON var GOTO OPEN #channel, 
lineno [,lineno] =e "filename" or Ц( 


"WHEN ERROR var. 
END WHEN Note: 
0S JS 

ERROR | 5070. 


"var... 
Мын | 


s PTT 
i Кей haod 


—— 
| 


VZ-200 CASSETTE INLAYS 


Hits program ть lor all уоп VZ-200/300 пыл» who have piles ol 
vasselle tapes and want to Index their contents so is easy bo hnd 
what you want. This program uses the PP-40, a pante/plotter 
distubuted by Dick Smith, and makes extensive use ol the graphics 
contand suppotted by this printer The programi contains Com 
ments lor those users шапа wih the required commands, and 
fot those who ate thinking of conveding the program 


lan Оше. 
(томат, NSW 
5 GOSUB 1000 *TITLE 
12 'CASSETTE TAPE INSERTS 
20 ВТ IAN DUTF IELD 
“БОК THE 04-200 
) 1673785 
.^ FOR USE WITH PP4Q 
^ PRINTER 
USE IN 40 COLUMN MODE 
SET PRINTER TO TEXT МОРЕ 
CAN BE CONUERTED TO OTHER 
PRINTERS? 
LPRINT CHRSSCI2) 
ЧО CR AND LINEFEED 
100 LPRINI CHREC1 ЗЭ 
110 LPRIM СИПЮ»(10) 
129 "SET COLOUR TO BLACK 
139 ?FIRST GO INTO GRAPHIC HOPE 
149 LPRINT CHRS C18) 
КОЙ PRIMI WOO 
160 "RETURN TU TEKI 
170 i PRINT CHRS$C1 7) 


fot š, 


LPRINT " ЖЖЖ CASSETTE INLAYS xxx" 
LPRINT "" | 

* INTO GRAPHIC MODE TO 
› PRINT NUMBERS AND LINES 
LPRINT CHR$(18) 
LPRINT: "Sp - 

> SET SI2E 

% PRINT NUMBERS 
LERINT "РШ" 

> DRAW LINE 

LPRINT "J446; 0" 

› GO BACK TO PRINT NUMBER 
LPRINT "R-200,0" 

*. PRINT OTHER NUMBER: 
LERINT РЫ 
LPRINT"R-292; -30" 
LPRINT"P3." 
LPRINT"J446,0" 
LPRINT"R-200, 0" 
LPRINT"P4." 
LPRINT"R-292,-30" 
LPRINT"PS." 
LPRINT"J446,0" 
LPRINT"R-200,0" 
LPRINT"P6." 
LPRINT"R-292,-30" 
EPRINT"P2;" 
LPRINT"J446,0" 
LPRINT"R-200,0" 
EPRINI"PS." 
LPRINT"R-292,-30" 
LPRINT"PS9," 
LPRINT"J446,0" 
LPRINT'" R-200,0" 
КЕРІНТ?РІӨ.” 
LPRINT"R-315, -38" 
PRINT: Paid И" 
LPRINT"J446,0" 
LPRINT"R-200,0" 
LPRING PTZ." 
LPRINT*R=315, =30" 
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480 
430 
500 
510 
520 
920 
930 
1500 
1000 
1010 
1030 
1035 
1040 
1045 


, 
1060 
1020 
1080 
1030 
2000 
2010 
2040 
2050 
x" 
2060 
2020 
E" 
2080 
2030 
2035 
3000 
3010 
O CO 
3020 
3030 
4000 
4005 
4010 
RESS 
4020 
4030 


LPRINT"P13, " 
LPRINT"J446,0" 
LPRINT"R-200,Q" 
LPRINT"P14. " 
LPRINT"R-315, -30" 
SOUND 31,1. | 
PRINT"CINUERSE) FINISHED":FOR T=1 TO 
:NEXT : RUN 
TITLE PAGE 
CLS 
COLOR 8,0 
POKE 30744, 1 
PRINT@0@,"CTRL+0,CTRL+TX30,CTRL +U; 
PRINT@448, "CTRL+E, CTRL+YX3@, CTRL+R" 


FOR Y=32 TO 416 STEP 32 

PRINT@Y, "CTRL +U" 

NEXT Y 

FOR Y=63 TO 442 STEP 32 
PRINT@Y,"CTRL+I" 

NEXT Y 

PRINT@1@9, "02-200" 

PRINT@195, "xxx CASSETTE - INLAYS xXx 


PRINT@298, "BY IAN DUTFIELD" 
PRINT@388, "PRESS ANY KEY TO CONTINU 


IF INKEY$="" THEN GOTO 3000 

IF INKEY$="" THEN GOTO 3000 

SOUND 31,1:GOTO 4000 

SOUND 28,1 

PRINT@388, "CINUERSEJPRESS ANY KEY T 
NTINUE" 


SOUND 10,1 

GOTO 2070 

CLS , 

POKE 30744,0 

INPUT"CINUERSEJSET UP PRINTER AND P 
<RET>" 5P$ 

PRINT :PRINT :PRINT"PRINTING" 

RETURN 
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Consider the 
BASICS 


Tear yourself away from the darkroom 

and plug-in to Kim Kohen’s use of home 
computers with photography. This combination 
is only as limited as your imagination. 


t seems just about everything we do 
these days is somehow influenced by a 
computer. Evidence of this comes in the 
fact that most of the cameras and lenses 
we see on sale now, have either been 
designed by or have as an integral part, 
something resembling a microprocessor. 
This has enabled designers to create far 
more accurate and ‘foolproof’ cameras. 

My involvement with computers is not sO 
complex. | had tinkered with home com- 
puters for around 18 months before | .start- 
ed realising their potential for the 
photographer. | decided that because a great 
deal of photography is taken up with time in 
the darkroom, then this was the first area that 
| should explore. It occurred to me that most 
photo timers these days are electronic rather 
than mechanical, so | figured that this would 
be the first task | would make my computer 
perform. 

| am not a computer expert and | do not 
have mega-buck super powerful computers. 
| use probably the cheapest computer on the 
market, a Dick Smith VZ 300, which at the 
time of writing was retailing for $99.00. When 
you consider the cost of the Seiko watch 
you're probably using as a timer now, the 
computer would have to be considered great 
value. ) 

Most home computers use the computer 
language calledBASIC. To get the computer 
to do exactly what you want, it is necessary 
to have a program written in this language. 
There are numerous books available on 
BASIC and with а little patience it is a fairly 
straightforward language to understand. 


Computer Timing 

OK, back to the timers. For quite a while 
I had been processing films at home using 
my digital wristwatch as the only form of 
timer. This is OK in black and white where 
there are only a couple of steps to time. The 
problem was that an ever increasing amount 
of my work was being done on colour trans- 
parencies. With the number of steps and the 
precision required for E6 films, processing 
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them can be quite a handful. This is where 
the computer comes in. 

The thing that computers do best is count. 
This meant that it was just a matter of get- 
ting the computer to time the necessary 
processing steps for me by making it count. 
If this sounds difficult, just have a look at a 
BASIC manual to see how easy it really is. 
The technique needed is called a 'nested 
loop'. In a nested loop, the computer is told 
to count to a certain number, but also to wait 
a certain time before going to the next num- 
ber. Confused? Don't worry. Have a look at 
Table 1 and you should get a better idea of 
how it works. 

Now for my E6 program | had a few 


This computer plugs into most television sets. 
It is amazing just how valuable it can be to the 
photographer, from timing film processing to 
designing filing sytems. 


This is a typical plug-in type memory expan- 
sion unit. It gives the user an extra 16K of Ran- 
dom Access Memory. Most of the author's 
photography programs require 3K of RAM to 
run. 


1 oF 2. 


Table 1. This is the first developer timing step in 
my E6 program, Lines 176 and 180 display on the 
screen that the timing has started. Line 182 tells 
the computer to count from 318 to 0 in steps of 
—1. This is the development time in seconds. Line 
188 is just a display of the time. Lines 190 and 
200 are telling the computer to count to 381 BE- 
FORE it counts the the next number from line 182. 
You see it takes the computer approx 1 second 
to count to 381. So this means the computer will 
count down from 318 and take 1 second between 
counts. Lines 205 to 220 tell the computer to таке: 
-a sound every second for the last 10 seconds-of - 


definite requirements. | wanted an audible 
warning as | was approaching a chemistry 
change, and | wanted a 15 sec. allowance 
in which to change chemistry. As well as that 
I wanted a time display so that at any stage 
during processing | could see at a glance 
how much time was remaining. It took quite 
a bit of time but | finally worked out the right 
program to perform all of these functions. 

It would take too much space to reprint the. 
entire program here. Although it is fairly sim- 
ple, it does take up quite a bit of room. In 
the six months | have been using the pro- 
gram, | have processed over 100 rolls of film 
with a 10096 success rate. (That's better 
than most labs). 

Of course the timer principle has many ap- 
plications. | have just finished a program that: 
times Cibachrome processing and automat- 
ically adjusts it's timing according to what 
temperature the user inputs. 


Outside the Darkroom | 

There are obviously many other applica- 
tions for home computers in photography. 
They don't all have to be in the darkroom `--- 


bles, and even optimum focusing distances 
for greatest depth of field. Naturally, you 
would work this out on your computer too. 

So now I’ve conviced you that without a 
computer your life's ambition of great pho- 
tography will not be achieved. Before you 
rush out and spend a small fortune on the 


“the timing step. This is to warn about a chemistry 
“change. approaching: Simple isn ' itl! 


“176 PRINT @ 74, "FIRST DEV” 
180'PRINT. Q 135, “TIMING COMMENCED”, ë: z 
E FOR S-318 TO 0 STEP -1 =" 
£ 188 PRINT @ 265, ‘SECONDS :"S 
190 FOR X=1 TO 381 7 


20 D хе imeem | latest whiz-bang computer, there аге a few 
4006 NEXT S г A things you should know. The most important 


thing to do before you buy, is to decide ex- 
actly what you want the computer to do. This 
will allow you to determine the type of com- 
puter, and the amount of memory you are 


07 FOR T=30 TO. 10 STEP -2: ddr UH. ur 
M0 SOUNDT,8:— ад... uM 

S28 NEXT тазаа 

4,220 CS ` (ck 


үке 
eT able 2. This program will calculate the hyperfo- ` 
cal distance of your lenses at a certain aperture. ` 
‘will тип on a Dick Smith VZ 200/300 and probe 
‘bly, most. other home: ‘computers, eats 


ЕТІ ВЕМ “HYPERFOCAL DISTANCE” 
220, CLS? ДА 
2130. PRINT Q 101, “ТҮРЕ ІМ FOCAL LENGTH" 
740 PRINT @ 169, “OF THE LENS." - 

“50 INPUT L- f 
Em СГБ AUCUNE Aa 
70 PRINT @ 102, “ТҮРЕ IN THE MAXIMUM" 
` 80. PRINT @ 172, "APERTURE" | 

-90 INPUT F `` 

400 H = 1° (L/F) ` 


CLS 14 + 
PRINT @ 100, "HYPERFOCAL DISTANCE is" 
PRINT @ 203, H “METRES!” sig 
FOR X=1 TO 2300: NEXT X x: 
CcLS = m) 

PRINT Q 64, “DO YOU WISH TO CONTINUE он 
STOP?" = 

PRINT @ 
CONTINUE’ 
PRINT @ 231, "PRESS 'Q' TO Qum". 
INPUT C$ 

IF C$ = "Q" THEN GO TO 220 
GOTO 10 

CLUS 

END 


"S 


195, "PRESS ‘RETURN’ то 


"Me 


rs 


either. One really simple program | have writ- 
ten works out the correct aperture to use 
when using extension tubes for close-ups. 
Another one lets you work out the hyperfo- 
cal length of your various lenses. (Table 2). 
This in itself is no big deal, but once you 
know the hyperfocal length of your lens, you 
can then calculate accurate depth of field ta- 


The liquid crystal ‘computer’ display of the 


Minolta 7000. These displays will become 


even more popular in the future. 
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likelyto need. Most of the photography pro- 
grams | use require only about ЗК of RAM 
to run. RAM or 'random access memory', is 
the memory used to store the users pro- 
grams. The type of programs you run will de- 
pend on the amount of RAM you have 
available. The more complex the program, 
the more RAM it requires. ROM or 'read only 
memory, is the computers inbuilt memory. 
The ROM cannot be programmed by the 
user. The BASIC language is part of the 
ROM. 

If you are only going to use the computer 
for simple timing tasks then a computer with 
16K of RAM will. be quite adequate. 
However, if you want to run business-type 
programs like word processors or spread- 
sheets, then a machine with a larger memory 
will be necessary. Something to remember 
here is that many computers RAM.can be 
doubled by the fitting of plug-in memory ex- 
pansion packs or boards. Go to a recognised 


` computer shop and ask about any particu- 


lar computer and its functions. 

This article is, of course, only scratching 
the surface. Programs can be written for 
storing details of where photos were taken, 
at what aperture, shutter speed, film types 
etc. Computer filing systems can be 
designed for instant information on the lo- 
cation of your precious slides or negatives. 
How about a program for keeping track of 
how much money you spend on photogra- 
phy each year? You could take it one step 
further and work out your tax return on the 
computer. Who knows, the computer may 
even be a legitimate tax deduction. ө 


If anyone is interested in the programs men- 
tioned in this article, or if you have written any 


' programs in BASIC relating to photography 
. Write to Kim Kohen, 47 Allingham St, Banks- 


town 2200. NSW. 


20 2 


Add емоме 
w— Á 
45 CLEAR So : Rsk stack poles, 


10 TM=PEEK (30898) *256+PEEK (36897 )-35 
` 20 POKE30897,TM-INT(TM/256 )*256: POKE20858 , INT( TM/256 ) 


30 TM=TM+1 I NEXT ADDR., 
LO POKE308L6 ,TM- INT(TM/256) *256 : POKE20847 , INT(TM/256) 
50 TM=TM-65536 CONVERT TO памер DEC, 


60 FORA-QTO31! P 

70 ЕЕАОВ:РОКЕТМ+А,В 

80 NEXT 

90 POKE20845,205 : CA Ge INTERET EXIT, 

100 NEW 

110 DATA33,150,0,1,70,0,58,251,104,254,121,192,205,92,52,58,251 
120 DATA104,255,115,52,249,55,200,0,1 ,60,0,205,92,52,201 
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Kn 96 7(4) 


Action: Whn a key js біреуін, th ku, board Scanning 


Tov) Sets on INTERRUPT. p ыр) rovlin if 


VEER eek ah Aom. dot interrupt nil. 

7%7>/Е/Ғ hx, ( 30845/4/) D<.) РЯ 
seh by Жағаны. JA n called by dk ои 

Lins 40 and, qo seb ths ¿L CALA (tomes), [ с 


VZ Pause 


VZ Pause is а short routine for the У2- 
200 which enables the computer to be 
“paused' at any time. А pause can be 
initiated by pressing Shift-X. А short 
beeb will be produced to confirm that a 
pause has begun and pause can be ter- 


` minated by pressing Shift-C, and again а 


short beeb will confirm this. The routine 
uses interrupts, and so will work with 
any software that does not disturb these 
interrupts. To use, type in the routine, 
and then CSAVE it immediately, as the 
program self-destructs when run. When 
the program is run, the pause facility 
becomes operational. 

The program works in the following 
fashion: 
@ Lines 10-20 lower the RAMTOP to 
create space for a short machine 
language program 
@ Lines 30-40 set the address for the 
interrupt exit 
@ Lines 50-80 POKE the machine 
language program into the memory 
@ Line 90 makes the interrupt 
operational 
@ Line 100 clears the Basic routine from 
memory. This is necessary to prevent the 
system crashing should the routine be 
RUN twice. 


LSB msa | 
73 61/2 Hux ЕЗУІ Dee.) bantai Wa. SAM a top a mmen Pointe. 
és FB lx. T, ta w addni of Ilg key board mabix | okre = 


bi s 4 3 2 ! 9 


Corresponds ^. V 2 С М x В and JL folie lot 3° low 


м a kiy i dapas. 


21 44 aR LD HL SRH ; led He dill soD = pilh for Sound. 

& 46 sQ LD 5C, Ob H р lond BC wilh 902 - дме Cost УК 

34 FB а LD А , (%Евн) check row oddrus of keyboard malo 

FE 79 CP 79H j compare ad ОЗМ ХР ov 2, = sch Ph 

Сә RET NZ ; от» if nok «ЗА XP алы, — еа} No T Sh? 
Cb 52 34 CALL 245СН / сей spend rovhing , 

34 FB ép Loop LDA, (FB) ; check rom addres of babes brin E 
FE 73 CE. 33H ; мм ad «abc. uo» — pk Flags уе 
2о Р TR NZ, 4ооР % А not GO CS 15. ‘yap b nek 7 byks h loss. 

Ap CE BN LD HL, RC H. : losd HL with 200D — hgh- pitch Í. ext sound. 

ы 3C SR LD ВС ICH ^ dow Be л бөз = sheke ды, For cab seal 

Су SC 34 CALA 345CH о Gall Sound rese, 


Ca, RET е 72 оғы re ou et ом Rom roubiass , 


/ 


COMPUTING TODAY 


VZ SOFTWARE 
MODIFICATIONS 


Fast Graphics on a VZ200/300? It can be done! Here is the 


good oil! 


Chris Griffin 


I BOUGHT A' VZ200 soon after they were 
released as an ‘upgrade’ from my old 6800- 
based CHIP-8 machine. But it soon became 
obvious something was missing. It seemed I 
could get speed or high resolution, but not 


both. I wanted something that was fast and . 


took full advantage of the 128 x 64 dot co- 
lour graphics; so, ‘VZChip-8’ was born. 
VZChip-8 is а ‘low-memory’ interpreter 
(about 1.5K all up), designed. for 
VZ200s/300s with only 8K of memory. Fig- 
ure 1 shows a memory map of a typical VZ 
computer‘running my Chip-8 ‘system’. No- 
tice thé presence of an editor: This is used 
to write your Chip-8 program and can also 
be used to write machine code programs. It 
is a separate program in its own right — a 
stand-alone component in the CHIP-8 sys- 
tem, so I have decided to discuss it first. 


The Chip-8/machine code 
editor . 

This program is about 1K long and allows 
you to work entirely independently of 
BASIC. In fact, it allows you to talk directly 
to the central processor. Programs are writ- 
ten in hexadecimal — or base 16, and con- 


` sist of a string of op-codes and arguments. If 


you don’t understand you should get hold of 
a book on machine code programming for 
the 780. 

The basic requirements of an editor are 
that it be able to write, run and modify pro- 
grams, print listings and save to tape or 
disk. I have included a few extras because I 
find them helpful, but otherwise, the editor 
consists only of these things. 

Editor commands consist of a single let- 
ter. Its features revolve around the memory 


гоз. 


pointer. This is just like ап arrow, pointing 

to a particular place in the VZ's memory. 

The editor uses the arrow to indicate where 

it is to store or retrieve the information it 

needs. For example, if you want to list a 

program beginning at memory location 

8260, you first set the memory pointer to 

8260, then instruct the editor to list. How do 

you do all of these things? Easy; using the 

following commands: 

A prints out the ASCII value of the next 

r typed. 

B returns to BASIC; this is used for saving 
` -to disk and loading from tape or disk. 
D converts a hexadecimal number to its 

decimal equivalent. 

G is used to run machine code program. 

H help, prints out a message to remind you 

- of something. 

L lists memory to the screen, beginning at 
the memory pointer. 

M sets the memory pointer to a particular 
place. 

O outputs (saves) a program to tape; pro- 
duces B programs which run automati- 
cally when you CLOAD them. 

P puts data to memory, beginning at the 
memory pointer position. This com- 
mand is used for writing and modifying 
programs. 

S searches for a particular byte (or two), 
and points the memory pointer to the 
place where a match occurs. 


| Ttype; the same as list, except to the 


printer. 

V vector; places the pointer at the memory 
location which is stored at the present 
pointer position. 

X eXtension; allows for user defined com- 
mands, and others; an extension is used 
to activate Chip-8 programs. 


Command extensions: X 
Commands beginning with X are two 
characters long: the second character is а 


CHIP-8 
PROGRAMMING AREA 


CHIP-8 PROGRAM START 


CHIP-8 DATAPROGRAM 
AREA 


CHIP-8 INTERPRETER 


8000 ??М 

ADDRESS 

3450 P70 

ADDRESS = 8628 
8678 72S, 

VALUE = 5622 
FINISH = 

OCES ?% 

9СЕ5 22 2а 2: 
СЕО 98 FE ca 
@СЕ5 = 07 @5 21 1С 
GCFD F2 F6 ec 
2025 24 29 86 
арап 3A 1C 73 
9015 = 21 25 29 2E 
2010 22 C9 21 
OCES 
ADDRESS : 
2000 ??Р 
2000 = 48 45 4C 4C 
2008 

2000 ??х 
EXTENSION HD 


0092000 


Figure 2. Some of the editor commands in 
operation. 


number (between 0 and F). Some X com- 

mands are already defined: 

XO prints out a message beginning at the 
memory pointer position; (all messages 
use the byte 00 to signify the end). 

XD directs all output to the video screen. 

XE directs all output to the printer; for in- 
stance, Figure 2 was generated in this 
fashion. f 

XC, We shall use the XC command to acti- 
vate the Chip-8 interpreter but since it 
hasn't yet been installed XO just clears 
the screen. The process of adding your 
own X commands will become obvious 


‘when we discuss connection of the Chip- | 


8 interpreter. 


LISTING 1. USING THE EDITOR 


% CHIP-8 INTERPRETOR PART I 

-? EDITOR PROGRAM 
' DON'T BRERK THIS PROGRAM ONCEIT 
› BEGINS RUNNING... 

, 


ял „һу = б 


CLS:PRINT@200, "PLEASE WaIT?9" 


10 6050858: IFA$z"XX" THENGOSUBS@ : 03X :GOSLI 


BS@:0=0*256+x :GOTO10 

15 IFAS="22@" THENPOKE 30863, 112:РОКЕЗ0862, 
9 :G0T0O20 

20 POKEO,X:T2T*X:D-D*1:GOTO180.- | 

50 READAS: IFAS="XxX"ORAS="22" THENRE TURN 
51 X=ASCC(LEFTSCAS, 1) ]-48:B=ASCC(RIGHTS(AS 
122-48 

60 х= (X* (9 9987 1416 + C84 282327 

65 RETURN 

20 1FT=118389,PRINTUSR(1) 

25 CLS:PRINT"AN ERROR HAS BEEN MADE, CHE 
CK " 

80 PRINT"THE LISTING CAREFULLY” 

99 'HñIN PROGRAM LISTING 

188 DATAXX,20,00,01,30,04,21,00,22, 11,F0 
Í 8A, ED; Ве, C3, FD, 8A 

110 DARTAXX,22,00,C3, E5, 88, 7C, CD, 05, 8B, 7D 
FS, 1F IF, 1F, 1F СО, 0E, 88 

120 ОАТАҒІ,Еб, е, Сб, 30, FE, ЗА, 38, 02, C6, 07 
:18,18, ES, C5, CD 

130 ОАТАЕЯ4, 2Е,В7, 20, F8, CD, F4, 2E,B2, 28, FR 
, 06,30, 10, FE, 0D 

140 DRT^20,FB,CI, E1, C9, ES, C5; CD, E4, 8E, 36 
; 20, CD, 2A, 03, 2A 

150 DATA20,28,36, RF ,C1, E1, C9, ES; C5, FS, CD 
390, 34, F1, 18, E7 

160 DATAES,CS,CD; 1A, 8B, 47,FE,0D, 28, 0B, FE 
,30, 38, F 4, FE, ЗА 

122 DATA3@, 10, E6,0F,21,3E; 80, F 5,28, CD, 44 
;88,F I, FE, 88,C1 

180 CATAE1,C9,FE,41,38,0C,FE, 47, 30,08,06 
107, 18,E4, 15, 87 

198 DATAC8, CD, 32,88, 13, 18, F7, CD, 00,88, 11 
; AO, BB, CD, 78, 8B 

200 DATA06,08,3E;20,CD; 32, 88, 7E, 23, CD, 05 
;:88,10,F 4, 3E, 0D 

210 DATAC3, 32,88, 20, 30, 00, СО, 28,88, ЗЕ, 20 
ı CD, 32,8B, 21,00 

220 DATAGO, 06,00, CD, 4D, 8B, C8, 29, 29, 29, 28 
;:85,6F,04,18,F3 

230 DATA21, E3,76,;22, F9,28, 21, 07,8F , 22, 8E 
, 28,20, CD, F6,8E 

248 DATAAF , 32,9С,28, ЗЕ, 11, 32, 3B, 28, 32, 00 
, 68, 3E, 03, 32,39 

250 DRT878,21,00;80, 22, 10,28, C9, F3, 3l, FF 
:BF,CD,80,88;, 11 

262 DATADO, 80, CD; 78, 88, 2А, 18, 28, CD, 00, 8B 
111, 20, 8C, CD, 2B 

270 DATR8B, CD, ІА, 8B, FE, 41, 38, F9, FE, 5B, 30 
3F5, 42, CD, 44,88 

280 DATA3E,80,CD,32, 8B, 21,31, 8C, 2E, FE, FF 
:28,08, 23,88, 28 

232 DATAO4, 23,23,18, F3, 56, 23, 56, 05, E1, CD 
, 26, 80,18, C6, ES 

зве DRTA20,3F,3F,00, 4C, 59, 8C, 4D, 65, 8C, 47 


`, OF, 8C, 53, 29,8C 


310 DATAS, во, 8C, 56, 22, 80, 41,32, 80, 44, 53 
,80,4Е, 64, 80, 48 
320 DATA46, ВЕ, 42,4С,8Е, 54, 57, ВЕ, 58, 98, 8E 
»FF,2A;18,78,0E 
330 DATAQ8, со, 84, 8B, OD, 20, F^, CI, 11, 04, ВЕ 
‚C0, 83,88, 22,10 
342 'DATA28,C9, 11, 0E, 8E, CD, АЗ, 88,28, B2, C8 
; £3,11,16, 86, CD 
358 DATAAS, 8B, 78,82, C8, FE, 03, F5, 30, 01, 65 


п ЕЗ8, 11, 1E, 86; CD 


368 DATAA3, 88, ED, 5B, 10, 78, 13, 78, B7, 20, 03 
12A, 10,28,С1,18 
320 DATA13,B8, 20, 0F , F1, 38, 06, FS, 1A, ‚в9, 29 
»@7,F1,1B,€0,53 
388 OATAI@, 78,C9,DF,20,£9,11,27, 8E, ©з, 2B 
,8Б, 00,00,00,00 


‚ 440 DATR3E» RF, 18, ЕЕ, FS, 


392 DATA28,10,28,06,00, CD, 00, 88, i1, 10, 8D 
Í, CD, 7B, 8B, 3E, 08 

482 DATAFS, ЗЕ, 20, CD, 32, 885; CB, 78,20; 20, CD 
; 15,88, FE, 22,28 

418 Олтар, ёе, ёа, со, 18, 80, 28, 14,67, 82,82 * 
3825 F5,CD, 40, 88 

420 DAT^01,28,03,82, 22, 23,F1, 30,28,06, 18 


322, F1; C9, CB,F8 


430 ОАТАЗЕ, 41, CD, FF, 8E, I&; CF, CD, IA, 8B, F€ 
122,20, 06, CB, B8 

CD,44, 8E; Fi, 18,09 
;£5,C5,C3, 52, 8B 

450 DRT^20,30,00,3E,00, CD, 32, BB; 18, 98, 2A 
, 19, 28, 2Е, 23,66 

462 DRT86F,22,10,728,C9,11,32, 86, CO; 28,98 
, CO, IA, 8B, FS, CD . : 

422 OATA44,8B, 3E,0D,CD. 32,88, 11, 16, 8E, CD 
:28, 88, F1, CD, 05 

488 DATASB, 3E, 00, C3, 32, 88,11, 49, 8E, CD, ^3 
:88,11,16, 86, CD 

492 DRT82B,8B,CD, AF, OF, 18, ER, 11; 39, 8E, CD 
.28,88,21,90,28 

500 DAT^06,10,C0, 18, 88,Ғ5,С0,44,8В,Ғ1,ҒЕ 
01» C8, FE, 0D, 28 

510 DATAG4,77,23,18,ED, 36,48, 36,11, 90, 32 
, D6, 76,11, 0E, 8E 

522. DATACD, АЗ, 8В,Е5, 11, IE; 8E; CD, 63, 8B, F3 
; 9E,F1, CD, 5B, 35 

530 DATAD!,CO,A3,80,F3, сз, 08,01, 3A, 01, 4B 
:23,B0, 20, F8, DD 

540 DATA2), 23, 78, 28, СО, 11,35,00, 72, 00, RF 
»00,77,81,7A,CD 

550 ОАТАО?, 80,70,C0,07,80,7C,C0,07,80,CD 
,E8;3A,08,1A,13 

568 ORT^CO,D2,80,D0F,20, F4, ES; C3, FA, 34. CD 
,11,35,С3,8Е, 38 

570 DATAIF, 56, 58,20, 32,30, 30, 20, 48, 45, 58 
:20,45,44,49,54 

580 OATA4F, 52,80, 56, 45,52, 28,32, 2E, 31, 0D 
, 28,43, 29, 28,43 

590 DATA47, 27, 38, 35,80,80, 00, 41, 44, 44, 52 
:45, 53,53, 20,30 

бав DATABA, 53,54, 41,52,54, 20, 3D, 00, 56;41 
4C, SS, 45,20, 30 

618 DATAA, 46, 49, 4E, 49, 53, 48, 20, 30, 00, 4E 
, 4F 54,20, 46, 4F 


-620 DATASS, 4E, 44, 00, 00, 43, 48, 41, 52, 20,30 


,88, 4E, 41, 4D, 45 

630 DATA2Q, 30,00,48, 45,58, 20,30, 88,11,64 
;8E, C3, 28,8B, FB 

640 DATACD, 7A, 1E, £0, 78, E8,28,C3, 19, 10,21 
,9С,78,36,81,Е5 

6580 DATACD, 59,8C, E1, 36, 00,C9, 43, 4F , 4D, 4D 
, 41, 4€, 44,53,20 

662 DATñ41,52,45,0D,41,2C,42,2C, 44, 2C, 42 
, 2C, 48, 2C, 4C, 2C 

680 DATA4D, 2C, 4F , 2C, 50, 2C, 53, 2C, 54, 2C, 56 
, 2C, 58,00, 80, 45 

690 DATAS8,54,45,4E,53,49, 4F , 4E, 20, 23, 00 
;11, 8C, BE, CD, 28 

708 DATA8B, CD, 4D, 88, C8, 82, C6, RF, OF , 26, 8E 
,Ғ1,С0,4Е,80,С3 d 

10 OATA22,8C,DA, 8E, E4, 88,E4, 88, E4, 8B, E4 
`, 8B, E4, 8B, E4, 8B 

220 OATAE4, 88,64, 8B, E4, 8B, E4, 8B, E4, 8B, C9 
, 01,05, 8E, CF,8E 

730 OATAE4, 8B, 36,01, 32, 9C, 78, C9, AF, 32, 9C 
, 28, C9, ED,58, 18 

242 ORT^28,CD, 7B; 8B, Q3, 4E, 8D, 2А, 20, 78, 42 
, 3A, 9C, 28,82, 78 : 

252 ОАТАСВ, ЕЕ, 80,08,С6, 20, E6,2F, 9, 21, FC 
;86,22, B1, 28,20 

260 DATA18, 12,32, 40,88, 3E, 01, 3, 44, 8B, F3 
;31, FF,8F,CD,CD 


Errata ds Listing 


NOTE: We have had complaints from read- 
ers who could not get the editor listed last 
month running. Printed below are correc- 
tions to lines 70 and 380, and two new 
lines 770, 780 to be added. As well as this, 
we understand that in some issues of the 
magazine, the figure 32 between 90 and D6 
in line 510 was printed so indistinctly as to 
look like 37. So if you have any problems 
after amending the listing, check line 510. 


CORRECTIONS TO THE ‘EDITOR’ 
LISTING. 


THE FOLLOWING ARE THE CORRECTED 
LINES. 


70 IFT = 118550, PRINTUSR (1) 


380 DATA10,78,C9,DF,20,E9,F1,11, 
27,8E,C3,7B,8B,00,00,00 


770 DATA8B,C3,Ec,8B,2D,22,A0,78, 


C9,00,00,00 
780DATAZK 


NB. THE LAST TWO LINES NEED TO 


BE ADDED TO THE PROGRAM. e 
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COMPUTING TODAY 


Using the editor 

Key in the listing given (Listing 1), save a 
copy of it, then run the program. You will 
have to wait a while, until everything is set 
up. If anerror results, check the listing care- 
fully. An introductory message will be 
printed when the editor is installed. Save a 
copy in this form to tape or disk. To do this 


tape users should type: OVZEDITOR (cr) ` 
8AFD (cr) 8F30 (cr), where (cr) means the’ 


RETURN key. The last (cr) is not typed until 
the tape recorder is on and in record mode. 

Alternatively, type BBSAVE 
“VZEDITOR” 8AFD,8F30(‘cr’). Both Bs аге 
essential. The first is needed to exit the edi- 
tor. This step eliminates the delay from oc- 
curring every time the editor program is 
run. It saves the machine code part, pro- 
duced by Listing 1, to the relevant medium. 


Commands К 

Now, try out some commands: particu- 
larly M,L,H and T (if you have a printer). It 
is a good idea not to use the G or K com- 
mands just yet. 

You will find that many commands 
prompt for ADDRESSes, START locations, 
STOP locations, etc. The answer accepted 
by the computer consists of the /ast four 
digits of whatever is typed in. If you meant 
to type 88D8, and instead, entered 8BE, 
just type in the right response and the prob- 
lem is fixed, so that 8BE88D8 is interpreted 
as 88D8. This is important because the edi- 


tor is riot equipped with a backspace facility. 

The P command, as I said before, allows 
you to put data in memory. To test it out, 
set the memory pointer to 7080 (use M7080 
(cr)) and type P, Now, type in the following 
data: 48454C4C4F (cr). Notice that the 
word HELLO appears on the screen as you 
type. You have stored the ASCII values for 
HELLO at location 7080-7084, which is in 
screen memory. 

How did I know to use 4845 ...? I 
looked it up; but that's a laborious task if 
you want to enter lots of words into memo- 
ry. Instead, you can use an easier form: type 
M70CO (cr) P", the ” (shift 2) allows for 
character data entry — the computer does 
all of the conversions for you! (Notice that 
while in this mode, the normally blue cursor 
turns into an ‘A’.) After typing in the re- 
quired word, pressing another " returns the 
cursor to blue again, so you can enter hexa- 
decimal data as usual. 

S is used to search for one or two bytes, 
depending on what you type in, from the 
memory pointer to the end position (which 
you also type in). If a two-byte search is re- 
quired, make sure the search string is more 
than two digits long. For example, to search 
for 6A00 in the region of memory 8200 to 
8500, type M8200 (cr) 56.00 (cr) 8500 (сг). 
The message NOT FOUND means that 6A00 
could not be found anywhere between loca- 
tions 8200 and 8500. e 


| IMPORTANT EDITOR MEMORY LOCATIONS | 


The editor has а small collection of useful subroutines. These can be used when prototyping а Chip-8 
program or when writing machine code programs. Care should be taken to ensure that calls to these 
subroutines are not present in the final program, unless the editor is to be included in the final program. 


Description 
Jump location, COLD START. 


isters altered 
L,BC,DE,AF 


Show HL register pair as a hexadecimal value. AF 
Show A register as a hexadecimal value. AF 
Wait for a key press, A contains the ASCII value of the key that AF 


was pressed. 
Show the character stored in A. 
Show character in A, and 


beep. ; 
Get a hexadecimal key (0-Ғ, or (cr)) and put the value in A, A AF 


equals 80 if (cr) is pressed. 


none 
none 


Show a string using DE as the pointer, up to the character stored DE,AF 


as 00. 


Shows a message off DE, and gets a two-byte number from the 


` HLBDEAF 


keyboard; the number is stored in HL, while B contains the 


number of keys pressed. 


The following locations contain prompt messages used by the editor. Each message consists of 
a string of ASCII characters ending with the byte 00. These messages can be changed to suit your 


own personal requirements. 
Locstion Length Description 
8000 38 
8Е64 39 
8C2D 3 
Example: to change the help message, type 


begins. 


Introductory message; this is the heading displayed when the editor first 


Help message; the 39 characters here are reserved for a simple memo which 


is called up by pressing H. 
Prompt string, normally consists of a space and two question marks. 


M8E64 (cr) P''this is the new message (cr) "00 (cr) 


Make sure that whatever you type 
Next month: the CHIP-8 interpreter. 


as the message is less than the maximum size of 39 characters. 
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CHIP-8 INTERPRETER 


A CHIP-8 
INTERPRETER 


— for VZ200/300 


Chris Griffin 


How's it going? Did you get the editor from the last article in 
August '86, typed in, up, and running? If you had any trouble 
refer to the note at the end of the article. In this article | use 
.the editor to set up the Chip-8 interpreter, to write and run 
Chip-8 programs. | will also mention details of this particular 
dialect and show a few simple programs to get you started. 


THE CHIP-8 interpreter (Listing 1) is a 
machine language program which executes 
instructions beginning at location 8200 
(this is in hex — remember!). The inter- 
preter has an ‘address space of 4K, mean- 
ing that it can only access 4096 bytes of 
memory. Therefore only three hex digits 
are required to specify an address. 8200 is 
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referred to as 200 by the Chip-8 interpret- 
er, 54A refers to 854A, etc. So, if from 
time to time, I drop the leading 8, don't 
be too bothered about it! 

Each Chip-8 instruction consists of two 
bytes of hexadecimal data — a total of 
four digits. Between 200 and AFC, the 
locations in which a program may be 


l of 5 


stored, there is thus room for about 1150 
instructions. You can also use locations 
(8)000 to (8)1FF to store parts of the pro- 
gram, -but never forget that execution is 
from location 200, so you'll have to use 
this section of memory for subroutines or 
shape data. 

. Chip-8 is a ‘what you write is what you 
get sort of language in that there is no 
way to break out of a program that is run- 
ning, unless you have allowed for this pos- 
sibility. This is one aspect that could take 
a little getting used to, but don't worry, 
you will! The Chip-8 interpreter has in this 
regard a trade off. A little speed is gained 
in the sacrifice; and for me, the speed is 
worth it! 

The language of Chip-8 supports only 16 
variables, an index register, and a stack 
pointer (which is rarely used in programs 
— it is more useful to the interpreter it- 
self!). 

The variables, labelled by a 'V', fol- 
lowed by a number (0,1,2...D,E or F), are 
each one byte long. They can only be used 
to store numbers in the range 0 to 255, so 
all operations involving variables are lim- 
ited in this way. If any extra space is re- 
quired to store the answer to a calcula- 
tion, VF is used for the extra piece. (It is 
called the carry, and is only relevant to a 
few arithmetic commands. Larger number 
manipulation is available to a limited de- 
gree, using the index register called ‘I’. 
This is a 12-bit number (3 hex digits) and 
is used to point to memory locations in 
much the same way that the editor pro- 
gram has a memory pointer. When you 
store 6BO in the index register, it points to 
location 86В0, as might be expected! The 
index register is an important part of the 
System as it is used extensively in graphics 
manipulation; it also allows more than 16 
variables to be used by a single program, 
if desired. 

OK, now let's get things up and run- 
ning! 


Getting started 
Load your copy of the editor program 
(ETI August 86 issue), and run it. Then, 
type in Listing 1 beginning at location 
7AE9 (type M7AE9 (cr) P then the data 
shown in the listing). Check the things 
typed, to make sure they are correct and 
type in the following: 

(i) M9BDF (cr) P0082 (cr) 
This sets the memory pointer to 8200 
whenever the editor is run. 

(ii) M8EC7 (cr) PE97A (cr) 
This connects the Chip-8 interpreter to the 
editor, allowing it to be activated by press- 
ing XC. 8EC7 is the location which con- 
tains the start address for thé routine 
which we want activated by XC — and we 
store 7AE9, the interpreter start address, 
here. By the way, locations 8EBF to 


8ECD contain the start addresses for all of 
the X commands (XC through XF), so it's 
easy to add your own! 

(iii) M8200 (cr) PF000 (cr) 

A very short Chip-8 program, just to test 
things out. 

Now, save everything. Use OVZCHIP8 
(cr) 7AE9 (cr) 8F30 (cr) if you have a tape 
system, or use BBSAVE “VZCHIPS”, 7AE9, 
8F30 (cr) if disks are your forte (after sav- 
ing to disk, you can restart the editor with 
?USR(O)). 

Let's run the Chip-8 program entered in 
(ii) above, by pressing XC. The screen 
should have flashed, and the editor re- 
started. If it has, so far so good. If not, 
check that the interpreter you typed in is 
the same as mine! Tape users will prob- 
ably have to start all over again!! (This is 
because B: programs run automatically 
from tape, but not from disk.) When 
everything works thus far, read on... 


Chip-8 graphics 

Graphics takes place on the VZ's mode 1 
screen. The individual points are labelled 
with two coordinates in exactly the same 
manner as BASIC (except, everything is 
in hex). Chip-8 allows you to display 
points (like BASIC), entire shapes (of up 
to 8 x 16 dots) and line drawings in 256 
sizes (although there are some restric- 
tions!) in any combination of colours you 
care to imagine. (Of course, only four co- 
lours can be used at once in this mode — 
there is little that can be done about this.) 
An object can be positioned anywhere on 
the screen, even overlapping another ob- 
ject. Overlapping objects are stored on 
the screen in exclusive-or form. Table 1 
shows the consequences of this in colour 
mode 0 (COLOR, 0), which is read as: ‘if a 
red object is placed on a blue area of the 
screen, the overlap is displayed in yellow’ 
etc. Funny idea? Not really! These condi- 
tions allow you to remove objects by sim- 
ply re-displaying them. If we number the 
colours 0 for green, 1 for yellow, 2 for 
blue, 3 for red, and change to COLOR, 1 
mode the same sort of ideas apply to buff, 
cyan, magenta and orange. 

A collision occurs if the following pairs 
of colours overlap: 1&1, 2&2, 3&3, 3&1, 
3&2. Collisions are registered through an 
object called ‘HIT’. HIT equals 1 means 
that there has been a collision, HIT equals 
0, otherwise. After a graphics command 
has been executed, HIT is stored in VF 
(variable F), to allow you to check for col- 
lision with Chip-8 instructions. 


Shape drawing 

A ‘SHAPE’ is eight dots wide, and be- 
tween. 1 and 16 dots long, and is consid- 
ered as residing in a grid (see Figure | for 


TABLE 1. COLOUR OVERLAP 


Оуепар- | Green Yellow Blue Red 


Green Yellow Blue Red 
Yellow | Yellow Green Red Blue 
Blue Red Green Yellow 


Red Blue Yellow Green 


an example 8 x 9 shape in its grid). Each 
row of the shape is represented by two 
bytes of data, that is, four dots to each 
byte. The colour of each dot can be inde- 
pendently defined using the number of the 
colour that is required. 

For the first row of the shape down, we 
have two green dots (which are in essence 
invisible) five blue dots, and one green 
dot. The colour codes are 0,0,2,2,2,2,2,0. 
Group this information into clusters of 
two digits: 00 22 22 20, then for each clus- 
ter, multiply the first digit by 4 and add 
the second to it, giving 0 A A 8 in our ex- 
ample. The two bytes used to describe this 
row are thus ОА and А8. Every other row 
is complete in exactly the same manner 
and the data stored in a segment of 
memory. 


Figure 1. Example of a nine row shape (a 
robot figure). Each square is filled with the 
colour that is desired. Those with no colour are 
green by default, as this behaves invisibly. 

Y — yellow colour value is 1 

B — blue colour value is 2 

R — red colour value is 3 

The last row, for example, is 00300030, which 
is 0C0C in hex. 


To put this shape up onto the screen, 
we set the index register | to point to the 
first byte of the shape data, and use a 
SHOW command. From the table of 
Chip-8 commands (Table 2), it is obvious 
that the SHOW command is Dxyn, but 
what does that mean? An example should 
make this clearer: D456 will show a 
shape, six rows long. with the top left 


а ak $ 


hand corner at (V4,V5). If we want to dis- 
play the example shape at (V3,V4), then 
use the command D349 — the 9 means 
that our shape is nine rows long. 

Let's write up a real Chip-8 program 
now. 


Writing Chip-8 programs 

To write a Chip-8 program, simply put the 
instructions, one after another, in memory 
from location 200 onwards. Consider the 
short program that we typed in earlier; 


“pressing XC did nothing much, so what 


was the Chip-8 program? Well, it con- 
sisted of the single instruction F000, which 
from Table 2, ‘jumps back to the editor, 
or restarts the program if the editor is not 
found' — in other words: END! So, that's 
why nothing much happened! For a real 
program, see Listing 2a. Type this one in 
(from 8200), and run it XC. You should 
get the picture we designed earlier in the 
top left hand corner of the screen. Press a 
key, and the program ends. Do you un- 
derstand what went on? The comments 
given may be of some help! Notice that 
we didn't need to switch on mode | graph- 
ics — it's automatic! (Chip-8 operates en- 
tirely in this mode.) For more examples, 
we need more concepts so read on. 


Colour registers 

The colour register is another VZ/Chip-8 
object — like HIT. This, however, is used 
to store colour data for some commands 
(Fx29, 8xyD and 8xyE). The register takes 
on the following values for colours: 00 — 
invisible or colour 0, 55 — colour 1, AA 
— colour 2, FF — colour 3. All other 
values give combinations of these, and are 
best experimented with! To load the co- 
lour register with 55, we could use the fol- 
lowing sequence of code. 6F55 FFCC, 
which says, load VF with 55, then load the 
colour register with VF. Once the colour 
is set, we can use 8xyD to plot a point, or 
Fx29 to draw a number, in the colour that 
we have defined. Type in and run Listing 
2b for an idea of colour register graphics 
operation. 


Joysticks and keyboard 

The command ЕхВ4, reads both joysticks 
at once, and assigns Vx to one of the fol- 
lowing values, depending on the joystick 
position: 00 — nothing, 2E — up. 20 — 
down, 4D — left, 2C — right, OD — fire. 
These codes were chosen as they corre- 
spond to the cursor control keys on the 
VZ keyboard. Using ExB3 instead of ExB4 
reads the keyboard and allows the result 
of this command to be treated in an iden- 
tical manner to the ExB4 command it re- 


places. The break key returns a value of 


01 if it is pressed, so it too can be easily 
tested for. 
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Printing out numbers 

See Listing 2c for an example of number 
printing. The Chip-8 interpreter has shape 
data for the numbers 0,1,2,3...D,E,F au- 
tomatically built in. All that is required is 
to retrieve them. The statement Fx29 does 
just that: retrieves the shape data for the 
last digit of Vx. If V8 is 7A, F829 re- 
trieves data for the number A, and sets 
the index register to point to the place 
where the retrieve data is stored, so that 
the next display command will show the 
correct thing. (The data is stored in sys- 
tem memory and will never get in the way 
of one of your Chip-8 programs.) That's 
OK for single digit numbers. But what 
about bigger ones, like 8A, EB etc, or 
even decimal numbers (for game scores, 
for instance)? 

The process of printing decimal numbers 
is easy, but fairly long, if you write in 
Chip-8. See Listing 2d, which repeatedly 
counts from 0 to 99, for an example. 
Some important commands are the follow- 
ing. 

(i) Fx33, converts Vx to a three digit 
decimal number, and stores each digit in a 
different memory location, pointed to by 
the index register. The hundreds get 
stored at I, tens at I plus 1, and units at I 
plus 2, so that if we could load these 
values into variables, each digit could be 
displayed in the usual way. 

(ii) F265 loads the memory from I, into 
variables V0, V1 and V2. VO contains the 
hundreds, V1 the tens, V2 the units. We 
can now easily display each digit. 

Notice also that the printing process is 
put in a subroutine at location 228, this 
saves me repeating the whole process in 
order to remove the numbers. (Recall: to 
remove things in Chip-8, simply re-display 
them.) 


How to draw large shapes 

8xyE is a command designed to draw large 
shapes on the graphics screen. Often, the 
object to be drawn is simple in structure, 
yet too big for a single 8 x 16 dot shape so 
under these circumstances, this command 
is used. 8xyE uses data pointed to by the 
index register, and also a 'SIZE' value 
stored in VF, to draw the shape from the 
point (Vx, Vy). VF equals 1 allows the 
shape to be drawn exactly as defined. VF 
equals 2 draws the shape twice the size in 
both x and y directions, etc. Shape data is 
given by a series of bytes, from two to as 
many as required. (Shape data for this 
command has no maximum length.) The 
last byte is always 00, required to tell the 
interpreter when the end has been 
reached! Each byte, which is rnade. up of 
eight bits, contains eight pieces of infor- 
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x TABLE 2 — VZ/CHIP-8 COMMAND SUMMARY 


0000 No operation. Does nothing. 

00А0 Store l on the subroutine stack. 

00AB8 Take | off the subroutine stack. 

OOAE Load 1 with the subroutine stack pointer. 

00C0 Set colour to set 0 (green background). 

00C1 Set colour to set 1 (buff background). 

00Е0 Clear the screen. 

OOEE Return from a subroutine. “ 

Оппп For nnn larger than OFF, calls a machine 
code routine at location 8nnn. Allows user 
machine code subroutines. 

1nnn Go to 8nnn. 

2nnn Go sub 8nnn. 

3xyy Skip the next instruction if Vx equals yy. 

4xyy Skip the next instruction if Vx does not 
equal yy. 

5xyO Skip the next instruction if Vx equals Vy. 

6xyy Load Vx with yy. 

7xyy Add yy to Vx. 

8xy0 Load Vx with Vy. 

8xy1 Load Vx with Vx OR Vy. 

8xy2 Load Vx with Vx AND Vy. 

8xy3 Load Vx with Vx XOR Vy (exclusive or). 

8xy4 Load Vx with Vx plus Vy (the carry is 
stored in VF). 

8xy5 Load Vx with Vx minus Vy (the carry is 
stored in VF). 

8xy6 Load Vx with Vx multiplied by Vy (carry is 
in VF). 

8xyD Piot a point at coordinates (Vx, Vy) with 
colour as in the colour register. 

8xyE Draw a shape with data pointed to by |, 
of size VF, beginning at the point (Vx, Vy). 

9xyO Skip next instruction if Vx does not equal 
Vy. 

AnnnLoad | with 8nnn. 

BnnnGo to 8nnn plus VO. 


TABLE 3. PITCH/DURATION VALUES FOR SOUND COMMANDS 


3C HE OF 


79 


(Other octaves can be approximated by halving and doubling the pitch and duration values.) 


Cxyy Load Vx with a random number ANDed 
with yy. 

Dxyn Show a pattern with data pointed to by |, 
consisting of n rows with the top left hand 
corner at (Vx, Vy). 

Ex9E Skip the next instruction if Vx equals the 
key that is down. 

ExA1 Skip the next instruction if Vx does not 
equal the key that is down. 

ExB3 Load Vx with the key that is currently 
down. 

Ex84 Load Vx with the present joystick posi- 
tion. 

F000 Jump back to the editor or restart the pro- 
gram if no editor is present. 

Fx02 Set the sound pitch to Vx. 

РхОА Wait for a key to be pressed and load Ух 
with that key. 

Fx18 Beep for Vx cycles. 

Fx19 Produce white noise (hiss) for Vx cycles. 

Fx1E Add Vx to 1. 

Fx29 Produce a digit pattern for the last digit of 
Vx and point ! at this pattern (colour is 
given by colour register). 

Fx33 Convert Vx to a decimal number and 
Store each digit in a different byte (100s, 
10s, 1s in 3 bytes from 1). 

Fx55 Store VO through Vx to memory pointed 
to by | (on completion, | is | plus x plus 


1). 
Fx65 Load VO through Ух from memory 
pointed to by | (on completion, | is | plus 
x plus 1). Opposite of Fx55. 
FxCC Load the colour register with Vx. 
Any other commands should be avoided — 
their functions are not defined, but in general, 
they do not represent no operation. 


PLOT | LEFT | RIGHT | DOWN FOUR | Two | owe | 


Figure 2. 8xyE allocation of bits. A 1" in the bit position activates the associated words, eg. PLOT 
UP and LEFT 5 is 11001101. 


mation; Figure 2 gives the key to this. The 
process of drawing a shape involves direct- 
ing an invisible cursor about the screen (in 
eight possible directions), leaving trails as 
we go if required! A typical instruction to 
the cursor might be: PLOT UP 2 DOTS, 
which is coded as 1 00 0 1 0 1 0 using 15 


gm 


>, 


and Os. To get this in hexadecimal form, 
group data into groups of four : 1000 
1010. For each group, convert the binary 
number into hexadecimal, in this example: 
8A. х 

Example: А square. То draw а square, 
imagine the following cursor instructions: p> 


LISTING 1. 


PLOT RIGHT 1 DOT, PLOT DOWN 1 
DOT, PLOT LEFT 1 DOT, PLOT UP 1 
DOT, END. From Figure 2, the codes 
аге: 10100001,10010001,1100 
0001,10001001, '00'. That is: А1 
91 СІ 89 00 іп һех. Тһе program shown іп 
Listing 2е uses this data to draw squares 
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of random sizes all over the screen — try 
it! 


Using sound commands 

Table 3 shows pitch and duration values 
used in VZ/Chip-8 sound commands. The 
values given here are not tuned to a stand- 


aot s 


ard pitch, but are chosen so that the scale 
sounds reasonably tuneful when played. 
To play a note, of duration V1, at pitch 
V2, use a segment of code like: F292 
F118. Be sure to use the correct duration 
for the pitch under consideration, other- 
wise your tunes will sound uneven! You 


Аны 


LISTING 2а. 
8200 — 6А 00 — put '00' to VA 
A2 0А — point 1 at 820A, the start of the shape data 
DA A9 — show a nine row shape at (VA,VA) ie (0,0) 
FB 0A — wait for a key to be pressed, store its value in VB 
F0 00 — end 
820A — ОА A8 
09 98 
0A A8 
00 C0 
03 FO data for the shape in Figure 1. 
3C CF 
00 C0 
03 30 
OC OC c А 


LISTING 2b. RANDOM DOTS 
8200 — CA 7F — put a random number (less than 7F) to VA 
CB 3F — put a random number (less than 3F) to VB 
CC FF — put a random number in VC 
FC CC — load the colour register with VC (ie: random colours) 
8A BD — plot a point at (VA, VB), a random screen position 
EF B3 — scan the keyboard and load the key pressed into VF 
ЗЕ 01 — if that key is '01' (the BREAK key), skip the next instruction 
12 00 — otherwise, go back to the start (plot another point) 
FO 00 — end; If BREAK key is down, the program will end 


LISTING 2c. SCREEN FULL 0” NUMBERS 
8200 — 6F AA 
FF CC — load colour register with blue 
6A 00 — '00' to VA 
6B 00 — '00' to VB 
8208 — 6C 00 — '00' to VC 
820A — FC 29 — prepare to show VC as a number 
DA B5 — show the number at (VA, VB) 
7А 08 — increase VA by '08', the next number will be beside the one just shown 
7C 01 — increase VC by '01', the next number to display is one more than the last | 
3C 10 — if the whole row has been shown, skip next instruction I 


12 0А — otherwise, go back to 820A and show another number | 


7В 08 — prepare to show оп next row; increase VB by '08' 
3B 40 — if we have finished the last row, skip next instruction 
12 08 — otherwise, go back to 8208, begin a new row 

FF 0A — full screen; wait for a key to be pressed 

FO 00 — end 


LISTING 2d. COUNTING 

8200 — 6F FF FF CC 6A 00 22 28 6B 00 6C 00 7C 01 3C 00 
8210 — 12 OC 7B 01 3B 06 12 0A 22 28 7A 01 4A 64 6A 00 

8220 — EF B3 3F 01 12 06 FO 00 A2 40 FA 33 A2 40 F2 65 

8230 — 6B 00 6C 00 F1 29 DB C5 78 04 F2 29 DB С5 00 EE 
8240 — 00 00 00 00 


LISTING 2e. LOTS OF SQUARES 

8200 — 65 FF F5 CC 6A 00 C6 7F C7 3F C5 1F 86 55 87 55 
8210 — 85 54 75 01 8F 50 A2 24 86 7E 7A 01 ЗА 20 12 06 
8220 — FF 0A FO 00 A1 91 C1 89 00 00 


LISTING 2f. CHIRP 
8200 — CE 07 7E 02 CA OF FA 02 FE 18 7A 01 3A 18 12 06 
8210 — EF B3 ЗЕ 01 12 00 ҒО 00 


Sos, 


don’t have to stick to the pitch and dura- 
tion values shown in Table 3, so other ef- 
fects, such as sirens, can be created. A 
sample sound program is shown in Listing 
2f: 


Saving completed programs 
When you have written a program, and 
are satisfied. that it does what you want, 
save it. There are two options here: 

(i) Save the program with the editor. 
This is for programs which still have not 
been fully finished. Save all memory from 
7AE9 to 8F30. 

(ii) Save the program without the editor. 
This is for complete programs, only save 
memory from 7AE9 to the end of your 
Chip-8 program. 

In either of the above cases, tape users 
will have to put up with the program run- 
ning whenever it is loaded, so if the pro- 
gram is incomplete, make sure it ends 
otherwise you will never be able to edit it! 


NOTE: We have had complaints from read- 
ers who could not get the editor listed last 
month running. Printed below are correc- 
tions to lines 70 and 380, and two new 
lines 770, 780 to be added. As well as this, 
we understand that in some issues of the 
magazine, the figure 32 between 90 and D6 
in line 510 was printed so indistinctly as to 
look like 37. So if you have any problems 
after amending the listing, check line 510. 


CORRECTIONS TO THE 'EDITOR' 
LISTING. 
VEG CRM NS ARE THE CORRECTED 


70 IFT = 118550, PRINTUSR (1) 


380 DATA10,78,C9,DF,20,E9,F1,11, 
27,8Е,С3,78,88,00,00,00 


770 DATA8B,C3,Ec,8B,2D,22,A0,78, 
С9,00,00,00 
ТВООАТАХ& 


МВ. THE LAST TWO LINES NEED ТО 
BE ADDED TO THE PROGRAM. 


Those who couldn't be bothered typing in List- 
ing 1 can get a copy (tape only) by writing to 
‘Chris Griffin, PO Box 233, Diamond Creek, 


Victoria 3089' and including $5 with the letter 
(for postage, packing, tape, and my time!). 
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Hardware qnd sofiwqre 
aspects of screen handling 
on the VZ-200/300 Part 1 


Bob Kitch 


This article describes the hardware aspects of the Motorola MC6847 
Video Display Generator chip which is used in a number of 
microcomputers. Although this is an older device and lacks some of the 
features of newer chips, it is nevertheless a well-used device and is quite 
easy to interface and comprehend. To illustrate the MC6847, its use in 
the VZ-200 and VZ-300 computers is detailed. Additionally, some 
software implementations are explained and some simple hardware 
modifications to the VZ are given to improve screen resolution and 


display appearance. 


THE MOTOROLA МС6847 Video Display Generator (VDG) 
chip (sometimes referred to as a Cathode Ray Tube Controller 
— CRTC) is used to interface data read from the video RAM 
section of memory and to produce a modulated RF video sig- 
nal or monitor output. The MC6847 is capable of operating 
in 14 different display modes. However, only a few of these 
are usually implemented in a particular installation. The 
MC6847 was conceived as one of the family of devices to in- 
terface with the Motorola M6800 and M68000 microproces- 
sor families, but it can easily be adapted to other 
microprocessors. The VDG can be found in video games, 
home computers, process control displays, communications 
and graphics applications. 

The VDG has the complex task of converting data from the 
screen memory into the form necessary for the raster scan 
display used in television and monitors. On these devices, 
the image is ‘drawn’ on the screen one horizontal scan line 
at a time. The 'spot' moves across the screen from right to 
left and its brightness or colour (chroma) is varied to produce 
the required display. In practice, the whole screen is built 
up in two passes, the first on even-numbered lines and the 
second on odd-numbered lines, by a process called ‘interlac- 
ing’ which helps to avoid flicker. The process occurs every 
20 ms, or 50 half-frames are drawn every second. 

Two types of VDG chip are produced by Motorola — the 
МС6847 for non-interlaced displays and the MC6847Y which 
interlaces the video display. the suffix ‘P’ after the device 
number identifies a plastic package. An enhanced version 
— the MC6847T1 — is also available but it is not strictly com- 
patible with the MC6847 as it requires less external circuitry 
and has some additional features. 

A timing or clock pulse is required to tie the scan rate and 
memory access cycles of the VDG in with that of the 
microprocessor (MPU) — otherwise chaos would reign on 
the bus systems! An external (to the VDG) clock is used to 
synchronise both the VDG and the MPU. Aclock frequency 
of 3.58 MHz is usually selected to give the correct scan rates. 
If a common clock is used then often the speed of the MPU 
is restricted by the video display. 

The format of the display area under the control of the VDG 
is actually 256 ‘dots’ across by 192 ‘dots’ down giving a total 
of 49 152 fundamental picture elements (pixels) under the 
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%-- 256 DOTS —> 


DISPLAY AREA 
(49 152 dots, oll under VDG 
control іп oll modes. Each 
one of up to B colours when on, 
depending on made.) 
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ж One on each non-interlaced line. For interiace, the lines of the odd 
field are copied into the even field thus doubling the number 
of displayed dots. 
Flgure 1. Typical Format of the Monitor Screen. The border 
is black in Alphanumeric and Semigraphic modes and 
green or buff in Graphlc modes. 


'control' of the VDG. Each pixel may be one of up to eight 
colours, depending upon the mode selected (see Figure 1.). 

As you will have observed, the MC6847 does not utilise the 
entire video screen. The standard video screen consists of 
262 scan lines extending across the screen, but the usable 
display window is offset from the top by 25 lines and extends 
192 lines down the screen with a further 25 linesat the bot- 
tom being offset. Across the screen, the timing pulses are 
blanked-off to reduce the useable horizontal width. The 
linearity of images is better in the central portion of а screen 
and this is used by the VDG. 

The screen is 'memory mapped' with each pixel on the 
screen being represented by a byte (or a number ofits there- 
of) in the video RAM. There is a one-to-one correspondence 
between the X-Y location of the pixel on the screen. and the 
address of its control information in memory. Тһе equence 
of memory addresses, which are accessed to extract data to 
be converted to a video signal, is controlled by the y DG. The 
VDG also keeps track of the position of the moving s pot and 
produces the necessary timing signals to synchronise the dis- 


play to the computer. It produces, for instance, thy ногі2оп- p> 
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talsync pulse to indicate when the end of the video line has 
been reached so that the spot can 'flyback' to the beginning 
of the next scan line. This pulse also permits the MPU to ac- 
cess video memory during the blanking period, thereby avoid- 
ing flicker. 

The decoding of the data input to the VDG is usually done 
by a character generator. This may be a pre-programmed, 
on-chip ROM in the MC6847 or an external, perhaps 
programmable, character generator. 

The display modes that the MC6847 may operate in are set 
out in Table 1. this tabulation summarises much of the in- 
formation about the VDG chip. The way in which these fea- 
tures are selected is in-line with most digital devices. The 
pin assignment diagram for the MC6847 is shown on Figure 
2. The chip is an N-channel, silicon gate device with most 
signals being TTL compatible. The device is housed in a 
40-pin DIL package. The amount of memory required by the 
various display modes is a trade-off against element size or 
resolution of the display in pixels. This feature will become 
more apparent later. 

The lines into, or out of, the VDG can be grouped into six 
classes but classes i) to iv) are the most important to this dis- 
cussion. 


i) Address Lines. (DAO — DA12) These permit up to 8K 
of video memory to be directly addressed, although only 
6K is ever required. The absolute location of the video 
memory in the computer system will depend upon the 
address decoding used. The starting address is located 
at the upper left-hand corner of the screen. The activity 
of the address lines is regulated by the *MS pin and the 
display mode selected. 


Date Lines. (DDO — DD7) Theseare used to input values 
in RAM memory to be mapped onto the screen. The 
values are decoded within the chip with repsect to shape, 
luminance and chroma (see later). 

Mode control Lines. There are eightimportantlines into 
the VDG which control the 14 display modes. These are 
detailed in Table 1. Three major types of display may 
be selected: (a) Alphanumerics, (b) Semigraphics and, 
(c) Graphics. 

The implementation of these displays within the VDG 
is quite different in each case. 


ii) 


iii) 


TABLE 1: 
SUMMARY OF DISPLAY MODES FOR MC6847 VDG 
colours bytes memory element ——— — —— Control Lines ——— —— — — — 
available video RAM mapping size “A/G *A/S “ІМТ/ЕХТ INV GMO GM1 GM2 
Four ALPHANUMERIC Display Modes 
i) Internal ROM Alphanumerics 2 512 byte BX12 0 0 0 0 x x x 
ii) Internal ROM Alphanumerics — Inverted 2 512 byte BX12 0 0 0 1 x x x 
iii) External ROM Alphanumerics 2 512 byte BX12 0 0 1 0 x x x 
iv) External ROM Alphanumerics — Inverted 2 512 byte BX12 0 0 1 1 x x x 
Two SEMI-GRAPHIC Display Modes 
v) 32 by 16 Semigraphics 4 (SG4) 8 512 byte BX12 0 1 0 x x x x 
vi) 32 By 16 Semigraphics 6 (SG6) 4 512 byte BX12 0 1 1 x x x x 
Eight GRAPHIC Display Modes ; 
vi) 64 by 64 Colour Graphics One (CG1) 4 1024 2 bit 3x4 1 x x x 0 0 0 
iix) 128 by 64 Resolution Graphics One (RG1) 2. 1024 1 bit 2x3 1 x x x 0 0 1 
ix) 128 бу 64 Colour Graphics Two (СС2) 4 2048 2 bit 2x3 1 x x x 0 1 0 
x) 128 Бу 96 Resolution Graphics Two (RG2) 2 1536 1 bit 2x2 1 x x x 0 1 1 
xi) 128 by 96 Colour Graphics Three (CG3) 4 3072 2 bit 2x2 1 x x x 1 0 0 
хі) 128 by 192 Resolution Graphics Three (RG3) 2 3072 1 bit 5х1 1 х х х 1 0 1 
xiii) 128 by 192 Colour Graphics Six (CG6) 4 6144 2 bit 2x1 1 x x x 1 4 0 
xiv) 256 by 192 Resolution Graphics Six (RG6) 2 6144 1 bit 1x1 1 x x x 1 4 1 
The IEEE standard for electrical state relationships uses the suffix '** 
instead of the overbar 7" to designate when an electrical signal is 
active low. 
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Figure 2. Pin-out for Motorola 
MC6847 Video Display 
Generator chip as used in the 
VZ computers. 


Switching the screen to Alphanumerics or Graphics 
mode is determined by the (* A/G) line. 


Switching the screen between Alphanumerics or Semi- 
graphics mode is set by the (*A/S) line. 


Selection of the internal (on-chip) or external character 
sets held in ROM is set by the (*INT/EXT) line. In Semi- 
graphics mode this line determines whether SG4 or SG6 
mode is selected. 


Normal or inverse Alphanumeric displays are set by the 
(INV) line. Three lines (СМО, GM1, GM2) are used to 
select one-of-eight Graphics modes to be used. 


An eighth control line (CSS) selects the colour set to be 
used in the particular mode selected. Most modes have 
two colour sets available. 


In Alphanumeric and Semigraphics 4 modes, one-of-two 
background colours is selected and in Semigraphics 6 
and Full Graphics modes one-of-two colour sets is 
selected. 

The operating mode of *A/S, *INT/EXT, CSS and INV 
may be changed on a character by character basis in Al- 
phanumerics and Semigraphics mode. 


DRAM 7000—7FFF 


iv) Power Supply. 
Vss: 0 V supply — normally ground. 
Vcc: «5 supply. 
v) Video Lines. 
These are four analogue signals: 
OA В-Ү chroma — а three-level signal used in com- 
bination with OB and Y to speci- 
fy one-of-eight colours. 


OB R-Y chroma — a four-level signal; the fourth is 
used as colour burst timing 
reference. 

Y luminance — asix-level signal containing com- 


posite sync, blanking and fourlev- 
els of luminance. 


CHB chroma bias or a test point — not used in appli- 
cations. 


vi) Device Synchronising Controls. 


*MS memory select, three-state control to allow the 
MPU to address the video RAM. 


CLK 3.579 MHz clock. 


*FS field sync to indicate the end of the active display 
area during which time the MPU may have access 
to the video RAM without causing undesirable 
flicker on the screen. 


*HS horizontal sync to the TV receiver. 


*RP row preset — important when an external charac- 
ter generator ROM is used. 


From this brief description, a grasp of how the VDG oper- 
ates may be gleaned. We will now examine how this partic- 
ular VDG chip is used in a home computer application — the 
VZ computer. 


The MC6847 in the VZ-200/300 
computer 
In the VZ computer a number of display modes using the 
МС6847 are available. Specifically, modes (i), (ii), (v) and (ix) 
on Table 1 are implemented as standard on the VZ. These 
modes are 'soft switched' or software selectable from the 
ROM-resident BASIC and will be described in detail later 
in this article. 

The video display system in the VZ consists of a number 
of components or 'blocks' — but the heart of the display sys- 


3 eof 4 


Modtfication for 
improved grophica 


Figure 3. Schematic for Video Display 
in the VZ-200 and VZ-300 Computers. 


tem is the VDG just described. This device interfaces with 
2K of dynamic video RAM which occupies 7000H to 77FFH 
of the memory map forthe Z8OA MPU used in the VZs. Ad- 
ditionally, a hex write-only latch mapped at 6800H (but ex- 
tending to 6FFFH due to simplified address decoding) 
controls, via software, the display modes implemented on 
the VZ. 

The analogue outputs from the BDG are processed by fur- 
ther video circuitry which need not concern us here. All of 
these blocks are synchronised by a 3.58 MHz clock. This is 
an instance where the full speed of the Z80A (4 MHz) is not 
realised due to impositions by the video display. 

More significantly however, the architecture of the VZ has 
only allowed 2K of RAM for the video display. This effec- 
tively prohibits the implementation of some of the hi-res 
graphics modes. (Specifically, modes (xi) to (xiv) in Table 1]. 
The VZ does not contain an external character generator 
ROM and relies entirely upon the VDG on-chip character 
ROM. Clearly, the VZ is manufactured to a price (and a very 
attractive one at that!) and was designed to interface with 
Microsoft's BASIC Level II ROM routines. Despite these com- 
ments, there are opportunities to make a few slight and sim- 
ple changes to the hardware around the VDG to implement 
additional display modes with improved resolution. It is also 
possible to add an external character generator — but more 
of these later. 

Figure 3 is a diagrammatic representation of the way in 
which the MC6847 VDG is interconnected in the VZ com- 
puters. The address lines DAO-DA10 (11 lines) are connect- 
ed to U7 — a 6116 2K RAM chip — which is mapped as the 
video RAM section of memory. Lines DA11 and DA12 are 
not connected, thereby limiting the addressable video 
memory to 2K. Data lines DDO-DD/7 (eight lines) are connect- 
ed into the data bus from the MPU of which the 2K video 
RAM memory of course forms a part. The way in which the 
eight control lines are connected is of interest as th ese de- 
termine the type of displays available on the VZ. 

Reference to Table 1 will indicate how the control lines 
are configured. The Graphics display group consist of GMO, 
GM1 and GM2. As can be seen from Figure 3, both СМО and 
GM2 are tied low (to ground) whilst GM1 is tied high, to the 
+5 V Supply. Similarly, “ІМТ/ЕХТ is permanently tied low, 
thereby enabling the on-chip character generator ROM. The 
configuration of СМО-С М2 to 010B means that only Colour 
Graphics Two (CG2) is implemented when Graphics mode 
is selected. 
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The remaining four controllines are interesting as they are 
not ‘hard-wired’ but are set up to be ‘soft switched’ — 
although two quite different techniques are used. 

The INV line is connected to bit 6, or DD6, of the data bus. 
Thus, whilst in Alphanumeric mode, the second most sig- 
nificant bit of a byte contained in video RAM controls 
whether a normal or inverse character is displayed. The line 
that selects between Alphanumeric and Semigraphic modes 
— * AIS — is similarly connected to the most significant bit 
or DD7. thus this bit determines whether the VDG should 
interpret a particular byteas an ASCII character or a graph- 
ics shape. 

The remaining two lines are connected into the Output 
Latch mapped into 6800H. As mentioned before, this is a 6-bit 
write-only latch. It permits certain software commands to 
set or reset a particular bit of the latch and hence switch or 
control specific hardware interfaces. Figure 4 is a schemat- 
ic of the portions of the latch which is of interest to us here. 
A copy of the latch is held in RAM at location 783BH. The 
* AIG line, which selects between hi- or lo-res screens, is con- 
nected to bit 3 of the Output Latch. If this bit is low or 0, 
then the screen is іп lo-res mode which corresponds to Al- 
phanumeric and Semigraphic modes. If the bit is high or 1, 
then hi-res or Graphics (CG2) mode is selected. It is quite sim- 
ple to see that the MODE (X) command in BASIC directly 
sets this bit of the latch — where X maybe 1 or 0. Note that 
bit 3 of the latch corresponds to a value of OBH on the latch. 

The Colour Select line (CSS) is connected to bit 4 on the 
latch which maps as a value of OFH. The effect of this line 
differs according to the mode selected. The CSS pin selects 
the background colour of the display and in so doing deter- 
mines the colour set which may be displayed. When CSS is 
low or 0 the background colour is green, but if set high or 
1, then in lo-res the background colour is orange, but if in 
hi-resthen the background is buff. Sounds alittle confusing 
— but actually it isn't, given a little thought and reflection 
on Table 1 and Figure 1. Furthermore, in hi-res mode this 
pin selects which of the two colour sets (each containing four 
colours) will be selected. Colour set 0 consists of green, yel- 
low, blue and red, whilst colour set 1 consists of buff, cyan, 
magenta and orange. Clearly, this pin is set by the COLOR 
F, B command where B determines the background colour 
and F determines foreground colour. 

An understanding of the operation of the mode control 
lines gives a good insight into how the BASIC interpreter in- 
terfaces with the hardware and the real world via the screen 
display. 

For the hardware enthusiasts, and others closely follow- 
ing this article, the penny should have dropped as to how 
other screen modes can be made selectable on the VZ by some 
simple hardware alterations. 


Improved graphics on the VZ computer 


One of the disappointing features of the graphics capability 
of the VZ is that the Semigraphics (SG4) and Graphics (CG2) 
modes һауе rectangular characters and elements which con- 
siderably detract from the appearance of the displays. This 
feature can be remedied. 

Thefollowing simple hardware modifications areoutlined 
for those who feel they are competent tackleit. They involve 
the installation of three switches on the VZ. Figure 3 pro- 
vides an indication of what is required. 

If *INT/EXT can be switched high, then Semigraphic mode 
SG6 becomes available on the computer. This has the advan- 
tage of giving higher screen resolution and, although the 
characters are still rectangular, their elements are square 
rather than rectangular as in the standard implementation 
of SG4 mode. 

In Graphics mode, only CG2 is available in the VZ. By 
switching GM1 and СМ2 it is possible with the 2K of video 
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Figure 4. Schematic of Output Latch mapped at 6800H 
(26624D) in VZ computers. (Other latches are used to 
control plezo-speaker and cassette output) 


Q4— CSS VDG background colour. 
O green (hi- ond lo—res) 
1 orange (lo—res) buff (һі-гез) 


Q3— А/С VOG display mode. 
О Io—res 
1 hi-rea 


memory to implement a further three modes (CG1, RG1 and 
RG2). There is little point in switching GMO as there is in- 
sufficient memory to cover modes (xi) to (xiv). The element 
size in SG6 and CG1 is the same (3x4 pixels) and so there 
is little to choose between them — although their usage of 
memory is different and the characters in SG6 mode can be 
'specified' through the keyboard as is done in 564 mode оп 
the VZ. 

RG1 has the same resolution as the standard MODE (1) dis- 
play but is only two-colour and consequently uses only half 
the memory space. the real benefit of adding the switches 
is in obtaining RG2 mode on the VZ. Although this only two 
colour, the element size is 2x2 pixels and is square. This is 
a great mode for plotting graphs for instance, where the 
screen resolution is 128 elements across by 96 elements down 
the screen. 

To achieve this modification, use three SPDT toggle 
switches. Wire one side of each switch to «5 V, or pin 17 
on the VDG, and wire the other side of each switch to ground 
or pin 1 of the chip. Cut the tracks leading from pins 27, 29 
and 31 (GM2, GM1 and *INT/EXT) and wire the chip side 
to the centre terminal of a switch. This enables the three con- 
trol lines to be switched high or low. (See inset on Figure 3.) 

There you have it! It remains now to develop suitable soft- 
ware to drive these additional modes. The possibilities 
opened by the 'square' modes of SG6 and КС2 are exciting. 
(Who is going to submit some drivers for this conversion?) 

As an afterthought, whilst you have got the VZ on the 
bench, why not add a RESET switch? A normally closed 
push-button switch inserted into the 'reset on power-up' line 
overcomes the annoying business of powering-down the VZ 
for resetting. 4 — continued next month. 


4004. 


Hardware and software 
aspects of screen handling 
on the VZ- -200/300 


Concluding with coverage of the 
software interface in the VZ and the 
MC6847 VDG, looking at the standard 
screen modes. 


IT IS NOW OPPORTUNE to briefly discuss the software 
interface in the VZ and the VDG. I will only discuss the stan- 
dard screen modes used on the VZ — not the additional 
modes mentioned in Part 1. 


Lo-res/Text/Mode (O). 

In the lo-res mode the screen is formatted into 16 lines down 
the usable window with each line containing 32 characters. 
Thereby providing 512 addressable characters on the screen. 
A quick calculation (or look at Table 1) will show that each 
character is composed of 8 by 12 pixels {or dots). Further- 
more, each character is ‘described’ in a single byte in the 
video RAM section of memory. The upper left-hand charac- 
ter on the screen is memory mapped onto address 7000H 
(28672D), and the lower right-hand character is mapped onto 
7000H + 1FFH (291830). A memory map for the lo-res screen 
is given in Figure 5. 

A formula is often used to calculate the address of a par- 
ticular character on the screen. Let AA be the position of the 
character ACROSS the line (which ranges from 0 to 31) and 
let AD be the line number DOWN the screen (ranges from 
0 to 15). i.e: working in the SE quadrant of an X-Y axis sys- 
tem. The relationship between (AA,AD) and the address in 
RAM is — 


MAPPED ADDRESS = START ADDRESS + (32 * AD + АА)ог 


Addr = 28672 + (32 ° AD + AA) 
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Part 2 
Bob Kitch 


This calculation is often used in games to POKE values into 
selected memory locations or when screen formatting via the 
use of the PRINT@ statement where it is performed 'trans- 
parently’. 

When the VZ is ‘soft switched’ to MODE (0) three of the 
modes inthe УОС become available. There areinternal ROM 
Alphanumerics (Normal and Inverse) and Semigraphics 4. 
There is no user-definable external character generator avail- 
able in a standard VZ and also the Semigraphic 6 mode is 
not implemented due to hardware limitations. (Although I 
understand that the LASER 200 had SG6 rather than SG4 im- 
plemented as standard — but see previous section). 

Let's digress for a while to describe how the on-chip cus- 
tomised character generator located in ROM on the VDG 
actually formats the 8 by 12 pixels to form each character. 
Firstly, in text mode. Table 2 shows the actual character set 
with corresponding codes resident in the VDG ROM. Figure 
6 shows a typical character in Alphanumeric Mode (Inter- 
nal). The spacing between characters across the line and be- 
tween lines is set by the format held in the character 
generator. A Non-ASCII type character code is used on the 
VZ such that lower case (and control) ASCII characters are 
not represented. The ‘lower case’ ASCII values are used to 
signal ‘inverse’ characters by setting bit 6 high. 

An Alphanumeric character in ‘normal’ mode is colour 
selectable as either green or orange witha black background. 
In ‘inverse’ mode, the character is black with the background 


TABLE 2. 


Alphanumeric and 
Semligraphic 4 character set 
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being selectable from green ог orange. Remember that the 
Inverse mode of the MC6847 is set by bit 6 of the data value 
contained in video КАМ. (see also Figures 1 and 6). 

An understanding of this involves looking at individual bits 
within the bytes and also looking at how these bits can con- 
trol and reset certain control lines on the VDG (as outlined 
in Part 1). 

In text mode there are 64 characters in each of the Nor- 
mal (0-63) and Inverse (64-127) sets. This implies that a 6-bit 
code is used to encode the character shape and that bit 6 de- 
termines whether Normal or Inverse. 

For example:— 


b7 b6 b5 b4 b3 b2 b1 bO 
0 0 1 о 0 1 0 1 Binary = 370 or '%' normal. 
0 1 1 0z- "0 1 0 1 Binary = 1010 or '9&' inverse. 


Note the way that bit 6 determines normal/inverse. Also 

note that bit 7 does not change. The most significant bit (MSB) 
is used to indicate text character to the on-chip ROM. 
In summary, for the character source, a 6-bit ASCII code is 
used to call the elemnent from the on-chip ROM, the seventh 
bit indicates normal or inverse illumination, and the eighth 
bit is held low to indicate Alphanumeric mode. 
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INVERSE 
Biack choracter 
Green or orange background (selectoble) 


NORMAL 
Black bockground 
Green or orange choracter (selectabie) 


Figure 6. Format of Alphanumeric Mode — internal on 
MC6847. Each character Is 12 by 8 pixels and each screen 
Is 32 by 16 characters. A 6-bit ASCII code specifies the 
character from an on-chip ROM. 
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701FH (28703) 


Figure 5. Screen addressing 
for MODE (0) or lo-res 
displays on VZ computers. 
This mode corresponds to 
Alphanumeric and 
Semigraphic 4 on VDG and is 
32 by 16 characters in size. 
Each character is byte- 

7 mapped as indicated. 


71ҒЕН (29183) =, 


b7 b6 b5 b4 b3 b2 b1 b0 


alpa inv 6-bit ASCII 
“А/5 INV 


In graphics mode the Semigraphics 4 mode of the VDG is 
used. The 8 by 12 pixel character is divided into four ‘rec- 
tangular' quadrants of size 4 by 6. Thequadrantsare 'psuedo- 
addressable' by selecting the correct area as shown on Figure 
7. 


In Semigraphics mode, a more comprehensive form of en- 
coding is used. The character codes extend from 128 to 255, 
implying that the MSB (or bit 7) is set to 1 (or high) to indi- 
cate that a graphics character is encoded in the byte. The 
graphicblock character contains 16 discrete patterns involv- 
ing 'switching' on or off the four quadrants. The four 
low-orderbits handle a quadrant a piece (refer Figure 7). Ad- 
ditionally one-of-eight illumination colours is encoded in the 
next three bits (bits 6 to 4). 

For example:— 


b7 b6 b5 b4 b3 b2 b1 b0 
0 0 1 0 0 1 0 1 Binary = го В. 
0-1 1 о 0 1 0 1 Binary = 1450 or Бу 
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BYTE ORGANISATION 


Figure 7. Format of Semigraphic 4 Mode on MC6847. Each 
character Is 12 by 8 pixels but elements or quadrants can 
be Individually Illuminated giving a screen resolution of 64 
by 32 elements In up to eight colours. 
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Figure 8. Screen Addressing 
for MODE (1) or hi-res 
displays on the VZ computers. 
This mode corresponds to 

. Colour Graphics 2 on the VDG 
and is 128 by 64 elements in 
size. Each element is mapped 
with two bits. 


015 > 


0,31 > 


In summary, for Semigraphics mode it can be seen that 
each of the four least significant bits controls one of the quad- 
rants, whilst the next three bits determine the colour of the 
illumination. The most significant bit is set high to indicate 
a graphics block is encoded. 


b7 b6 b5 b4 b3 b2 bi b0 


graphic colour G3 G2 | G1 G0 


“А/5 


Іп this mode, although the screen is formatted into 32 Бу 
16 graphics blocks, in fact the quadrant resolution is actual- 
ly 64 by 32 and with all of the eight colours available. This 
my be thought of as an intermediate resolution display 
mode. 

Thus it can be seen that Alphanumerics in either Normal 
or Inverse style and Semigraphics blocks of up to eight 
colours can be individually set on the lo-res screen by byte 
mapping. Different forms of encoding the necessary infor- 
mationare used in each case. These features combine to make 
MODE(0) quite a powerful display despite its lack of reso- 
lution. 


Hi-res/Graphics /Mode(1) 

In hi-res or MODE(1), the screen has 128 by 64 elements 
individually addressable. This corresponds to 8192 elements 
and with only 2K of video RAM available, then some sort 
of trade-off in features over lo-res must ensue. In hi-res, each 
element is 2 by 3 pixels in size and is (noticeably) rectangu- 
lar in shape. Video RAM addressing extends from 7000H 
Cre to 71FFH (30719D) — 2048 bytes as shown in Figure 


As mode corresponds to Colour Graphics Two (CG2) on 
the VDG chip. Each byte addresses four consecutive elements 
across the screen. Each element may be one-of-four colours 
(selected from either of the two colour sets). Note the trade- 
off in colours and the different way in which elements are 
addressed on the screen — such that MODE(0) and MODE(1) 
screens cannot be mixed. 

There are a couple of ways in whicheach element may be 
illuminated. 

The simplest (and slowest) way is by using the BASIC com- 
mands of SET and RESET. These commands alter two bits 
ofthe appropriate byte in the video RAM area. The process- 
ing is very slow because of this limitation and the fact that 
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7000H (28672 
im E 


T— 77E0H (30688) 


63,0 701FH (28703) x 


< 127,0 


4 127,15 


< 127,31 


< 127,47 


4 127,63 


63,63 77FFH (30719) == Y 
it is done through the BASIC interpreter. Listing 1 provides 
a simple illustration of this method. The program fills the 
entire screen with hi-res elements according to the COLOR 
command. The use of integer index variables speeds up the 
program a little. 


*$8$5NAIL GRAPHICS DEMO$$S 
uiri HI-RES ss 
"sss VERSION 1.2 ase 
°sts R.B.K. 22/5/66 3:44 
‘sss EXECUTION TIME 43.7 SECS. 


LISTING 1 


100 'SET TO HI-RES 
120 MODE(1) 

130 COLOR 3,0 

140 SOUND 10,1 

200 FOR V%=0 TO 63 
210 FOR H%=0 TO 127 
220 SET(H%,V%) 

230 NEXT H% 

240 NEXT VX 

250 SOUND 10,1 

260 STOP 

270 END 


“ааавмаш. GRAPHICS DEMO888 
„34 HI-RES sss 
MIII VERSION 2.3 sess 
"228 R.B.K. 22/5/86 888 
"заз EXECUTION TIME 8.5 SECS. 

100 "БЕТ TO HI-RES 

120 MODE (1) 

130 COLOR ‚О 

140 VX*2170:80UND 10,1 

200 FOR 1Хч28672 TO 30719 

210 POKE IX,VX 

220 NEXT IX 

250 SOUND 10,1 

260 STOP 

270 END 


LISTING 2 


10 ° 888NEAR-LIGHT-SPEED GRAPHICS DEMO888 
20 7884 HI-RES sss 
50 ‘s88 VERSION 1.2 ses 
20 "sss R.B.K. 22/5/86 sss 


LISTING 3 


50 "848 EXECUTION TIME 0.5 SECS. 
100 'sssLOAD BLOCK MOVE MACHINE CODE. 228 
110 FOR IX=-28687 TO -28674 
120 READ АХ: POKE IX,AX 
130 NEXT 
140 DATA 33,0,112,17,1,112,1,255,7,54,170,237,176,201 
200 "ЕЗШІМІТІМІІ2Е UBRO TO ADDRESS ӨРЕ1Н OR -28687D,15 f 
210 POKE 30862,241: POKE 50865, 145 
ЗОО 'S$98£T TO HI-RES. $31 
310 MODE (1) 
320 COLOR ,0 
330 SOUND 10,1 
340 х«Мея(0) 
350 GOUND 10,1: SOUND 0,9 
360 COLOR ,1 
370 BOUND 10,1: SOUND 0,9 
380 ВТОР 
390 END 
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РЕТТТТТТІТТТТІТТІТТІТТТІТІІ 
20 'ї%зї 2000 V2 SCREENS 4:4 
50 “ала VERSION 1.2 ase 
40 "513 R.B.K. 18/5/85 #88 
SO '333335251233522222355222335 
60 ° 
100 *88F IND TOP OF MEMORY. 
110 M1=PEEK (30898) | L1 =РЕЕК (30897) 1* 8$ $PRESERVE TOM POINTERS. 
120 TM«M12255*L1-20 1°82SRESERVE ТОР 20 BYTES. 
130 MS=INT(TM/254) :LS«TH-HMS 1256 
140 POKE 30898,MS:POKE 30897,LS 
150 ° 
200 'S13SET UP LOADING OF USR( ROUTINE. 
210 TMeTHe1 1'E33NEXT ADOR IN RESERVED МЕМ. 
MS=INT (TH/256) 1LS9TH-MS 1255 
POKE 30863,MS:POKE 30862,LS 
AD=TM+10 1° 822ADDR. FOR CHARACTER BYTE. 
IF TM>32767 THEN TM=TM-65536 1°888CONVERT TO SIGNED INTEGER. 
IF А0>52757 THEN AD=AD-65536 


LISTING 4 


*@8sLOAD MACHINE CODE. 
FOR ID=TM TO ТМ»15 

READ VL1POKE ID,VL 
NEXT 
"2212-80 BLOCK MOVE SUBROUTINE. 
DATA 33,0,112 1'LD HL,7000H (9286720 START VIDEO RAM) 
DATA 17,1,112 1'LD DE,7001H  (428673D NEXT OR DEST.) 
DATA 1,255,7 1'LD ВС,О?ҒЕН (#2047D SIZE OF VIDEO RAM) 
DATA 54,85 :'LD (HL),SSH (#85D YELLOW OR CHAR. 040 
DATA 237,176 1 'LDIR (BLOCK MOVE INSTRUCTION) 
DATA 201 1'RET 


'5331INITIALIZE DELAYS - CONTROL SPEED OF EXECUTION BY D. 
T=0 1'383TONE О IS REST. RANGE IS O TO 31 
D=4 1*$$$DURATION 9 IS LONG. RANGE IS 1 TO 9 
P230744 3 ° 888ADDR. FOR INVERSE CONTROL. 

POKE P,O :"88s8SET UP SCREEN. 

, 


*eesSET UP DEMO LOOP. 
FOR ID=0 TO 255 
POKE AD,ID 
° 88 8SCREEN MESSAGE. 
MODE (O) r" 8ss8SET sA/G LO. 
РОКЕ Р,О 1% £33SET INV LO. 
PRINT8234," CHAR = ";IDISOUND T,D 
"S$1LO-RES SCREENS. 
'S$1LO-RES GREEN CHARACTER ON BLACK BACKGROUND. 
X=USR (O) ı1 COLOR, O1SOUND T,D:’88sSET CSS LO. 
'£$$LO-RES ORANGE CHARACTER ON BLACK BACKGROUND. 
COLOR, 11 SOUND T,D 1'$33SET CSS HI. 
POKE P,1 :'3335ET INV HI. 
*88LO-RES BLACK CHARACTER ON GREEN BACKGROUND. 
X=USR (0) 1 COLOR, Or SOUND Т,0:'##%5ЕТ CSS LO. 
'£$3LO-RES BLACK CHARACTER ON ORANGE BACKGROUND. 
COLOR, 1:SOUND T,D 1°8%88SET CSS НІ. 
"азанІ-КЕЅ SCREENS. 
MODE (1) 2°888SET 8A/G HI. 
POKE P,O 1°888SET INV LO. 
*88SHI-RES COLOR SET О - GREEN SURROUND. 
X=USR (0) ı COLOR, Or SOUND T,D:’sssSET CSS LO. 
’488HI-RES COLOR SET 1 ~ BUFF SURROUND. 
COLOR, 1: SOUND T,D r'tz#SET CSS НІ. 
POKE P,1 1°889SET INV HI. 
"азЕНІ-КЕЅ COLOR SET O. 
X=USR(O):COLOR,O:SOUND T,D:’888SET CSS LO. 
'8312HI-RES COLOR SET 1. 
COLOR,1:SOUND T,D 
'SESRESET CONTROLS. 
POKE P,O1COLOR,OtCLS 
910 NEXT 
920 ' 
930 *%%%НЕ5$ЕТ ТОМ POINTERS. 
940 POKE 30898, M1 ıPOKE 30897,L1 
950 STOP:END 


1'£$3SET CHARACTER BYTE. 


1'$33SET CSS HI. 


A quicker way is to POKE values into each byte, thereby 
setting four elements at a time. Listing 2 demonstrates this 
technique. This program also fills theentire hi-res screen with 
elements whose colours are determined by the variables V%. 

The quickest way is to use a machine language program 
to load appropriate values into the video RAM. This tech- 
nique is a very rapid way to fill the screen. Listing 3 is an 
example of this method. This program POKEs machine code 
into hi-memory. The subroutine uses the very efficient Z80 
Block Move command to fill the screen according to the value 
stored at address -28677D. It is fast! 

Both of the last two methods require that an understand- 
ing of the value to enter into RAM is known. This requires 
a knowledge of how each byte is organised in CG2 mode. 

As mentioned previously, each byte controls four elements 
which can be selected from four colours. Bits are treated in 
pairs (dibits!) with each pair corresponding to an element. 
Each dibit can have a value of 00B to 11B to indicate colour. 
This is set out on Table 3. А 

Four example, suppose we want an entirely BLUE screen. 
Then POKE (128 +32 +8 + 2) or 170D intothe appropriate area 


| 


TABLE 3: 
CONFIGURATION OF BYTES IN MODE (1). 


3 2 1 0 Element # 


Bin. = four GREEN/BUFF elements. 
Dec. = 0D 


01 01 01 21021 Bin. = four YELLOW^CYAN elements. 
64 16 4 1 Dec. = 850 


10 | 10 10 10 Bin. = four BLUE/MAGENTA elements. 


Dec. = 1700 


11 Bin. = four RED/ORANGE elements. 
192 Dec. = 255D 


The decimal numbers corresponding to each element position AND colour 
provide the value that needs to be POKE'd or loaded. 


of the screen. If, however, a striped screen consisting of RED- 
GREEN-BLUE-YELLOW vertical bands is required, then 
POKE (192 +0+8+ 1) or 201D. 

Although only four colours are available, there are two 
colour sets available. These are called by the COLOR 
command. 

COLOR, 0 sets the background colour to green and the 
‘strong’ colours of yellow, blue and red are available. 

COLOR, 1 sets the background to buff and the 'pastelle' 
colours of cyan, magenta and orange are available. 

To think back to the RESET command mentioned before, 
it should be apparent that this command simply resets each 
dibit or element back to 00В, or the background colour. 


Finale 

Well there we have it! For those who have perservered thus 
far I have included Listing 4 which is entitled '2000 VZ 
Screens'. It is about as exciting as watching a Late Night 
Movie — and takes about as long to run! Actually it illustrates 
all of the features discussed in thisarticle. For those who wish 
to sit-it-out — watch those control lines operate! 
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REFERENCE LISTING OF VZ-200/300 MAGAZINE 
ARTICLES 
Since its introduction in early 1983, over one hundred articles on 
the VZ-200 and 300 have appeared in magazines. some articles review 
the hardware and others describe peripherals, some excellent games 
have been published and a very useful set of utility routines has 


emerged. 
This bibliography for the VZ computer is a must for the serious 
VZ User. < 
UTILITIES 
Oct. вз АРС 52,4 BASIC program conversion. (Surya) (2) 
Nov. 83 APC 57,9 Program conversion Pt. 2 (Surya) (2) 
Nov. 83 АРС. 89-95 BASIC converter chart. (Surya) (7) 
Feb. 84 APC 140-1 Program conversion Pt. 2 (Surya) (2) 
Mar. 84 APC 42-3 Program conversion — Apple II (Surya) (2) 
Apr. 84 APC 71-2 Program conversion — TRS 80/System 
80 (Surya) (1) 
Мау 84 АРС 75-6 Program conversion — Atari (Surya) (2) 
Jun. 84 APC 67 Program conversion — Sinclair (Surya) (1) 
Jul. 84 APC 129-30 Program conversion — BBC (Surya) (2) 
Mar. 84 ETI 63 More functions for the VZ-200. (Olney) (1) 
Apr. 85 ETI 117 Notes and errata for Olney. (-) 
Jul. 84 M80 3-4 VZED — three new functions. (1) 
Aug. “84 M80 2 VZ-200 output latch. (1) 
Aug. 84 M80 9, 15, 16 Memory peek VZED. (Carson) (1) 
Aug. 84 M80 3-4 Microsoft ROM BASIC Level I bug. (1) 
Apr. 85 APC 97 VZ-200 bug. (Tritscher) (-) 
Aug. 85 APC 31 VZ bug. (Tritscher) (-) 
Aug. 84 APC 94 VZ-200 moving message and trace. 
(Batterson) (1) 
Nov. 84 APC 125 Trace function. (Breffit) (-) 
Nov. 84 APC 125 VZ-200 correction. (Kelly) (-) 
Oct. 84 ЕТІ 135-7 Extending У2-200 BASIC. (Оіпеу) (3) 
Моу. 84 АРС 125-6 TRON/TROFF function for VZ-200. 
(Thompson) (1) 
Nov. 84 APC 208-12  MON-200 machine code monitor. 
(Stamboulidas) (5) 
Nov. 84 PCG 55-56 Lprinter. (Quinn) (2) 
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AEM Australian Electronics ETI Electronics Today 
Monthly International 
APC Australian Personal M80 Місго-80 
Computer MC Micro Choice (UK) 
BYC Bumper Book of Programs by PCG Personal Computer Games 
YC PCN Personal Computer News 
CC Creative Computing (US) (UK) 
CFG Computer Fun and Games PE Practical Electronics (UK) 
CT Computing Today (UK) WM Which Micro (UK) 
CHC Choice YC Your Computer 
EA Electronics Australia 


The numbers in brackets are the number of sheets in each article. 
A dash (-) indicates that the article is on the same sheet as the item 
above. 

If Users wish to obtain copies of the articles referred to in this 
bibliography they may — 

i) contact me for copies...or... 

ii) buy back copies of the magazine from the distributor...or... 
iii) borrow from your local library. 


Compiled by — 
Bob Kitch, 7 Eurella St., KENMORE, QLD 4068. Ph. (07)378 3745 


PLEASE ADVISE OF ANY ADDITIONAL ARTICLES... or... 
CHANGES, ALTERATIONS OR BUGS IN LISTINGS to assist other 
users. 
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Nov 84 PCG 
Feb. 85 APC 
Feb. 85 APC 
Apr. 85 PCG 
Apr. 85 APC 
Apr. 85 APC 
Apr. 85 APC 
Jul. 85 APC 
May 85 APC 
May 85 ETI 
May 85 APC 
Aug. 85 APC 
Aug. 85 APC 
Sep. 85 APC 
Oct. 85 APC 
Oct. 85 APC 
Nov. 85 APC 
Nov. 85 ETI 
Jan. 86 APC 
Feb. 86 АРС 
Маг 86 АРС 
Маг 86 ҮС 
Jun 86 APC 
GAMES 

Dec. 83 АРС 
]ап. 84 YG 
Apr. 84 АРС 
Jul. 84 APC 
Іші. 84 M80 
Jul. 84 M80 
Aug. 84 M80 
Aug. 84 M80 
Oct. 84 PCG 
Nov 84 PCG 
Jan 85 PCG 
— 85 BYC 
Mar 86 CFG 
— 85 BYC 
Jan. 85 APC 
Jan. 85 YC 
Jan. 85 PCG 
Mar. 85 YC 
Apr. 85 YC 
Apr. 85 PCG 
May 85 YC 
May/Jun 85 PCG 
Jun. 85 YC 
Jan. 86 YC 
Jul. 85 YC 
Aug. 85 YC 
Oct. 85 PCG 
Oct. 85 ҮС 
Маг. 86 АРС 
Мау 86 ЕТІ 
BUSINESS 

Aug. 84 APC 
Oct. 84 APC 
Oct. 85 APC 
Oct. 84 APC 
Dec. 84 APC 
May 85 APC 
Jul. 85 APC 
PERIPHERALS 
Feb. 84 EA 
Aug. 84 EA 
Aug. 84 PCG 
Oct. 84 АРС 
Dec. 84 APC 
Oct. 85 YC 
Nov. 84 ETI 
Dec. 84 ETI 
Aug. 85 ETI 
Jun. 86 EA 
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VZ-200 reverse video. (1) 
BASIC understanding (Hobson) (1) 
VZ-200 into puberty — Olney's 

extended BASIC. (1) 
Find. (Stamboulidas) (3) 
Use oí RND in dice and card games. 

(Holland) (1) 
VZ variable definition. (Stamboulidas) (1) 
Variable GO TO on VZ. (Olsen) (1) 
Correction to VZ variable GO TO (-) 
Lusco support for VZ-200. (Young) (1) 
VZ-200 hardware interrupt. (Olney) (3) 
Background VZ. (Williams) (1) 
VZ-200 instant colour. (Willows) (-) 
Reversed REM. (Quinn) (1) 
Real-time clock. (Griffin) (1) 
APC benchmark BASIC programs. (1) 
VZ deletions. (Quinn) (1) 


VZ EDITOR/ASSEMBLER tips. (Lam) (1) 
Olney's Level 11 BASIC for VZ-300/300. 


(Rowe) (2) 
VZ user graphics. (1) 
Machine language calls. (1) 
APC BASIC converter chart 1986. (8) 
VZ-200 cassette inlays. (Dutfield) (3) 
VZ pause. (1) 
Missile Command. (Whitwell) (2) 
Graphic Sine Waves for VZ-200. 

(Nickasen) (1) 
Moon Lander. (Alley) (2) 
Blockout. (Pritchard) (3) 
Battleships. (Carson) (1) 
Junior Maths. (Carson) (2) 
Contest Log VZED. (Carson) (1) 
Dog Race VZED. (Carson) (1) 
High Resolution Graphics Plotting. 

(Thomson) (3) 
Tips for ‘Ladder Challenge’, ‘Panik’ 

and ‘Asteroids’. (1) 
POKEs to ‘Ghost Hunter’. (-) 
Gold Simulation. (McCleary) (2) 
Gold Simulation. (McCleary) (-) 
Knight's Cross. (Lucas) (1) 
Sketcher. (Leon) (3) 
Punch. (Rowe) (2) 
Space Station Defender. (Shultz) (5) 
Decoy. (Rowe) (2) 
Painter. (Daniel) (1) 
Roadrace. (Thompson) (3) 
Number Sequence. (Thompson) (1) 
Sketchpad. (Thompson) (5) 
Morse Tutor program. (Heath) (1) 
Morse Tutor — again. (Heath) (2) 
Electric Tunnel. (Daniel) (1) 
Number Slide. (Daniel) (1) 
Cube. (McMullan) (6) 
Yahtzee. (Thompson) (3) 
VZ Frog. (Alley) (1) 
Balloon Safari, The Drop and Flatten. 

(Sheppard) (1) 
Database VZ-200. (Barker) (6) 
WP for VZ-200. (McQuillan) (-) 
Comment on Barker's and Quinn's DB. 

(Lukes) (-) 
Minicalc Spreadsheet. (Stamboulidas) (5) 
Correction to Minicalc. (1) 
Micro Type (WP). (Browell) (2) 
Database. (Quinn) (2) 
Real-world interface. (1) 
Improved graphics on VZ-200. 

(Dimond) ç (1) 
ПО card for VZ-200. (ad) (1) 
Serial help request. (Pope) (1) 
Add-ons for VZ-200. (Bleckendorf) (-) 
VZ-200/300 Modem. (ad) (-) 
A ‘Glass-Teletype’ using the 

VZ-200 Pt I . (7) 
А 'Glass-Teletype' using the 

VZ-200 Pt II (5) 
VZ-200 terminal. (7) 


VZ serial terminal. (ad DSE kit K6317) (-) 
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Feb. 86 ETI 724 Modifying VZ-200 16K memory 
expansion. (Olney) (3) 

Mar. 86 ETI 48 Talking VZ-200. (Bennets) (1) 

Sep. 86 AEM 89-92 VZ-200/300 Screen-handling. (Kitch) (4) 


COMMERCIAL SOFTWARE REVIEWS 


Mar. 84 APC 190-1 Review of DSE ‘Matchbox’, 'Biorythms', 

‘Circuit’, and ‘Poker’. (Davies) (2) 
Aug. 84 pcg 46-47 Review of DSE ‘Panik’ and ‘Ladder 

Challenge’. (1) 

Oct. 84 PCG 90-91 Review of DSE ‘knights and Dragons’, 

‘Ghost Hunter’, ‘Othello’, and 

‘Invaders’. (2) 
Nov. 84 PCG 90-96 Review of LYSCO ‘Cub Scout" and DSE 

‘Dracula’s Castle’. (1) 
Jan. 85 PCG 65 Review of DSE ‘Air Traffic Controller’ 

and ‘Tennis’. (1) 
Feb. 85 PCG 76 Review of DSE ‘Defence Penetrator’ 

and ‘Star Blaster’. (1) 
Mar. 85 PCG 76-77 Review of DSE ‘Planet Patrol’ and 

‘Learjet’. (1) 
Apr. 85 PCG 94-99 Review of DSE ‘Asteroids’, ‘Super 

Snake’ and ‘Lunar Lander’. (1) 
Apr. 85 ЕТІ 103 Logbook and Morse оп У2-200. (1) 
Oct. 85 PCG 689 Review of DSE ‘Duel’. (1) 
Nov. 85 PCG 70-1 Review of DSE 'Attack of the Killer 

Tomatoes'. (1) 
HARDWARE REVIEWS 
Apr. 83 АРС 58-66 VZ-200. (Hartnell) (5) 
Apr. 83 CC 38-43 Review of VZ-200 (3) 
May 83 CC 26-30 Video Technology VZ-200 PC. (Ah1) (3) 
Jun. 83 EA 137 New low-cost computer — VZ-200. (1) 
Jun. 83 ЕТІ 30 Dick Smith colour computer. (1) 
Jun. 83 YC 6 DSE VZ-200. (-) 
Aug. 84 PCG 12 VZ-200. (-) 
Jul. 83 ЕТІ 32-7 DSE's personal colour computer. 

(Harrison) (3) 
Jul. 83 EA 130-3 The VZ-200: colour. graphics and sound. 

(Vernon) (4) 
Jul. 83 PCN 16 Timing the Laser's phazer. (Stokes) (1) 
Sep. 83 ММ 40 Laser. (-) 
Aug. 83 YC 20-33 Cash and Carry Computers. (Bell) (9) 
Sep. 83 CC 202-4 Review of VZ-200 and PP40 (1) 
Oct. 83 АРС 77-8 VZ-200. (1) 
Oct. 83 WM 135 Texet TX8000. (1) 
Oct. 83 CT 12 The Laser 200. (-) 
Dec. 83 CT 11 Laser 200. (-) 
Nov. 83 CT 37-40 A look at the Laser. (Green) (4) 
Nov. 83 WM 42-108 The Laser — a shot in the dark. (3) 
Feb. 84 CC 218-21 Laser PP40 Printer/Plotter. (2) 
Spring 84 МС 52-4 Laser 200. (Green) (3) 
Jun. 84 EA 12-9 Buying your first computer. (Vernon) (6) 
Aug. 84 EA 30-3 An important role for small computers. 

(Williams) (4) 
Oct. 84 PCG 82-87 Home micro supertest. Pt. 3 

(Bollington) (5) 
Nov. 84 PCG 14-19 Home micro supertest. Pt. 4 

(Bollington) (4) 
Nov. 84 EA 78-80 VZ-200 as a WP (DSE E&F tape WP). 

(Williams) (2) 
Dec. 84 CHC 28-31 Review of video games consoles. (4) 
Jul. 85 ЕТІ 102-6 Dick Smith’s new VZ-300. (Rowe) (5) 
Aug. 85 EA 22-7 WP on the new У2-300. (Williams) (5) 
Declan 86 PCG 11-15 How to buy a micro — VZ-300 

compared. (4) 
GENERAL PROGRAMMING 
Jan. 83 PE 3/1-3/5 РЕ Micro-file 43 — 280. (Coles (5) 
Mar. 84 APC 73-85 Teach yourself assembler Pt. 1 (Overaa) (6) 
Apr. 84 АРС 57-64 (8080, 280. 6502) Pt. 2 (Оуегаа) (5) 
Мау 84 АРС 89-98 (8080, 280, 6502) Pt. 3 (Оуегаа) (5) 
Jun. ' 84 АРС 53-60 (8080, 280, 6502) Pt. 4 (Оуегаа) (5) 
Jul. 84 APC 61-84 (8080, Z80, 6502) Pt. 5 (Overaa) (3) 
Aug. 84 APC 110-116 (8080, Z80, 6502) Pt. 6 (Overaa) (5) 
Sep. 84 АРС 145-151 (8080, Z80, 6502) Pt. 7 (Overaa) (4) 
Jan. 85 АРС 122-124 Sort at input. (Ithell) (1) 
Feb. 85 АРС 103-109 The basic art — algorithms, structures 

(Liardet) (4) 
Mar. 85 АРС 98-109 Pick a number — arithmetic.(Ligrdet) (5) 
Apr. 85 APC 79-87 It takes all sorts — sorting. (Liardet) (5) 
Oct. 85 АРС 82 The Art of Programming — Progress. 

(Hjaltson) (-) 
Jun. 85 АРС 170-171 Comment on binary search. (Lapnich) (1) 
Jun. 85 АРС 171-173 Comment оп disbribution sort, 

(Riordon) (1) 
Oct. 85 ҮС 107-8 Sorting out the sorts. (Jankowski) (1) 
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Home brew label 
maker 


A program for programmers who 
like beer. By altering the strings in 
lines 190-240, the program can 
be customised for any user (and, 
indeed, for other labels besides 
home brew). Once you have set 
up your label, you need to 
remember to change the string 
BOS in line 240 to correspond 
with your date of bottling. Make 
sure that all of the strings have 
the same length to ensure o neat 
label. 


The program should be easy tc 
translate for other computers and 
printers. Line 180 activates double 
width print on my Olympia 
printer; line 380 deactivates it. 


Adrian Gallagher 
Bendigo, Vic 


72200 


100 Ф HOME BREW LABEL МАХЕР 
110 4 FOR V2 -200/300 

120 © PRINTER: OLYMPIA NP 

130 Ф (EPSON COMPATIBLE) 

140 * BY A. GALLAGHER 

150 % 14/5/86 

-160* © ALTER STRINGS TO SUIT 
170 *90909090909090909090090090909922200 

180 LPRINT CHR9(27)1"1"1CHR9$ (32) 117 
T DOUBLE WIDTH PRINT 
190 Т%«"еееееееееееееее 


SELEC 


ФФеееееееееееее 


200 Steve - - 


210 А%=”* АСЕ `5 


220 M$-"e MEAN b . MEAN 


230 Bs=w=“e BITTER e Ф ВІТТЕВ е 


240 ВОФ=- "ео B.17-5-856 e е. 8.17-5-86 
.. 

250 CLS: INPUT “HOW MANY DOUBLE LABELS" N 
260 FOR 1*1 ТОМ 

270 LPRINT TS 

280 LPRINT S8:LPRINT 89 

290 LPRINT AS 

ЗОО LPRINT Hs 

310 LPRINT BS 

320 LPRINT SS:LPRINT 56 

330 LPRINT BOS 

340 LPRINT 5% 

350 LPRINT Te 

360 LPRINTILPRINTIUPRINT 

370 NEXT I 

380 LPRINT CHR$(27)171"1CHR$(0)41 DESELEC 
T DOUBLE WIDTH PRINT 

390 END 
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Many hams have purchased the У2- 
200 computer marketed by Dick Smith 
Electronics and the more recent VZ- 
300 model. Some have also taken ad- 
vantage of the various projects and kits 
that allow the computer to be utilised 
for RTTY and CW. 

Being the son of an amateur, | 
couldn't help but wonder, ‘‘why leave it 
there?''. | also couldn't help but notice 
the time and trouble involved in keep- 
ing a log. Every time a contact is made 
and the callsign rang a bell, valuable 
time was lost flipping through log 
pages to track down who, where and 
when. 

Problems were also observed during 
contests when, with each contact you 
make, you have to either mentally or 
physically flip through the log to see if 
the station has been worked before 
and, in the case of some contests, to 
see if the required time between dupli- 
cate contacts has elapsed. 

So, if you have a computer handy in 
the shack, why not also use it to relieve 
the everyday drudgery of log keeping? 

The program listed here is short (as 
log programs go) and written in BASIC 
so even the most cautious user can 
type it in without much trouble. It re- 


By Alex Johnson Jr. 


quires 24K of memory, an 80-column 
printer and a cassette recorder. The 
program is written specifically for the 
Dick Smith GP-100 dot matrix printer, 
but should work with most printers 
without any worries. 

The program includes many ‘‘se- 
crets, tricks and short-cuts'' that | have 
discovered after working with the VZ 
for some time. These are used through- 
out the program to save memory, so 
please type the program in exactly as 
indicated in the listing (although you 
can leave out the spaces outside PRIN- 
T/INPUT statements) as the memory is 
balanced and juggled between string 
and memory needs. 

To save you some counting, long 
stretches of spaces inside PRINT state- 
ments have been printed as (x spaces). 
When you encounter this, just type the 
number of spaces indicated by ‘x’. 
When you encounter the term (rev), 
this indicates reversed text as used in 
program listing on the VZ-200/300. 
The printer used to list the program 
does not reproduce reversed text very 
well. 

| have personally checked the final 
printout and provided the editor with 
corrections and modifications needed 


to ensure that the program works ef- 
fectively (and your editor has taken 
great care to correct the detected er- 
rors for a bug-free printout — ED). 


TRICKS & SECRETS 


Some of the memory-saving tricks 
used in the program include: 
1. Beep each time a key is pressed. 


POKE 30862,90: POKE 30863,52 
X =USR(O) 

2. Small quick beep that can't be 
switched off (see ‘beep off’)... 

POKE 28761,1: POKE 28671,32 

The VZ technical manual discusses 
the Peizo on page 7. Any address from 
26624 to 28671 decimal (6800 to 
6FFF hex) will result in a beep when 
POKEd with these values. 

Beep on: POKE 30779,0 
Beep off: POKE 30779,1 
3. Memory left... 
POKE 30862,212: POKE 30863,39 
String memory . . 
PRINT USR(X$) 
RAM memory... 
PRINT USR(X) 

4. Sound abbreviations: the use of 
a semi-colon between notes and dura- 
tions... 

SOUND 16,2;21,7;15,3;22,8 
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5. THEN, GOSUB and GOTO on IF . 
. THEN . . ELSE statements: THEN сап 
be replaced by a сотта; GOTO can be 
left out; just the line number needs to 
be typed in after the comma. If a GO- 
SUB is needed, then the comma can be 
left off . . 
IF A::B,100; IF A=B, PRINT "HI" 
IF A=B GOSUB 100 
6. REM can be replaced with an in- 
verted comma and NEXT may be used 
with no variable . . 
100 ' THIS IS FUN 
200 FOR A=1 to X: NEXT 
There are many more "tricks" that | 
did not use in the program. If you have 
others or want to know the rest, write 
to me at 19 Banksia St, O'Connor, 
ACT, 2601. 


PROGRAM DESCRIPTION 


The program is broken into subrou- 
unes and components that can easily 
be used to help iron out any bugs. The 
following is a brief summary of the sub- 
routines and components. 

Lines 10-90: In Line 10 the screen 
background color is set and addresses 
30862 and 30863 decimal (788E and 
788F hex) are POKEd with the address- 
es of the beep routine in ROM, 13392 
decimal (3450 hex) Starting entry 
number is entered and variables are DI- 
Mensioned and set. T % in Line 40 con- 
trols how many entries can be kept in 
RAM at the one time. If you have more 
than 28K of RAM you can increase this. 
See Lines 1020 to 1080. 

Lines 90-176: The screen is set 
up. Note the number of periods or dots 
in these lines, as they are crucial in the 
log PRINTing process. 

Line 180: Commands are entered. 
This is what is referred to as the com- 
mand line or command entry point. 

Lines 190-310: The input at the 
command line is checked for a valid 
input. If the input is valid, the program 
goes to the appropriate subroutine; 
otherwise it returns to Line 170. 

Lines 320-340: The cursor is 
moved to the correct position to fill in 
the entries. Before the command line, a 
click is produced by toggling the Peizo 
high then low. This is done by POKEing 
decimal 2867 1 (6FFF hex), the byte be- 
fore the start of screen RAM. See pre- 
vious text. 

Lines 350-360: The entries are 
checked for length and cut down to the 


correct size. This is necessary as the 
PRINTing 15 dictated by entry length, as 
can be seen from Lines 430 and 860- 
870. This method is used to save 
memory. 

Lines 368-420: Previous entries 
are scanned through from the latest to 
the first — i.e. backwards. If a previous 
contact has been made, the most re- 
cent contact is displayed. 

Lines 430-435: If the continuous 
PRINTing mode is on, this subroutine 
is used to make the hard copy. The 
importance of length of entries can be 
seen here as entries are simply PRINT- 
ed one after the other without TABs. 

Lines 440-500: This is the 'FIND' 
subroutine where callsigns are com- 
pared with the one specified in Line 
140. If a match is found, you can con- 
ипие the log or execute a further 
search. 

Lines 510-540: This is the 'DE- 
LETE' subroutine where callsigns are 
compared with the one specified in Line 
140. If a match is found, you can con- 
tinue the log or execute a further 
search. 

Lines 550-630: The 'SORT' rou- 
tine allows the user to sort in two 
fields, by entry or callsign. If callsign is 
selected, all callsigns in string RAM are 
compared and sorted into alphabetical 
order in Lines 570-630. If entry number 
is selected, the data in string RAM is 
sorted into numerical order of entry 
number. Both formats are completed 
on three common nested loops. The 
decision as to which field is to be sort- 
ed is made in Lines 590 and 600. 

Line 640: 'FILES FULL' subroutine. 
This is used when the maximum al- 
lowable string RAM is reached. It is 
marked by an indicator in the top left 
corner of the screen and a series of 
beeps. The beeps in Line 640 are pro- 
duced from the one SOUND statement 
with semi-colons separating each note- 
/ duration pair. The files are considered 
full when the entry number is greater 
than T96 — see Line 160. It is then 
necessary to SAVE the entries. 

Lines 650-660: Continuous 
PRINTing mode is toggled on and off. 
When 2% = 1, it is on. When 2% = 0, 
it's off. See Lines 175 апа 420-435. 

Lines 670-720: Entries are dis- 
played on the screen. While the entries 
are being displayed, pressing 'P' or the 
space bar will ‘PAUSE’ the screen, 


2 ət s. 


while 'S' will stop the list and return 
you to the main entry page. 

Lines 730-870: Hard copy of the 
entries is made in this subroutine. The 
entries are PRINTed one after the other 
in Lines 860 and 870 and are not 
TABbed, as in Lines 430-435. Unlike 
continuous print, the pages are num- 
bered and headed in columns. Entries 
are printed in the current (sorted) order 
— i.e. if a SORT by callsign has been 
carried out, the log will be printed in 
callsign order; if not, it will be printed in 
entry order. Stop and pause are similar 
to Lines 700-710. 

Lines 880-920: Entries are 
SAVEd to tape in this subroutine in the 
current (sorted) order. 

Lines 930-980: Previously sAVEd 
entries are LOADed from tape in this 
subroutine. 

Lines 990-1000: The key beep is 
toggled on and off in this subroutine by 
PEEKing decimal 30779 (7836 hex), 
checking its value and adjusting Y%. 
When 30779 has a value of O and 
Y% = 1, the beep is off. If 30779 has a 
value of 1 and Y% -: O, the beep is on. If 
you are wondering why | used Y% to 
switch the indicator in Line 136 and 
didn't simply PEEK 30779, it isn't be- 
cause | didn't think of it but rather be- 
cause, for some reason or other, the 
value in 30779 is intermittently mis- 
read and therefore unreliable alone. 

Lines 1020-1080: Memory left 
subroutine. This is useful if you have a 
computer with more than the basic 
24K. By adjusting T% in Line 40, and 
keeping an eye on this subroutine, you 
can have more entries in string RAM at 
the one time. The amount of memory 15 
calculated by calling a routine at десі- 
mal 10196 (2704 hex). When USR(X) 
is used, the amount of free RAM in 
bytes is derived. USR(XS) derives the 
amount of string RAM in bytes. Line 
170 is used to reset decimal 30862 
and 30863 to the beep routine. See 
Line 10. 


USING THE PROGRAM 


Once the program is typed in and 
appears to be error free, SAVE it be- 
fore you attempt to RUN it as it may 
contain an error that causes the pro- 
gram to crash and be lost. Once it is 
SAVEd, и is then safe to start as the 
SAVEd copy can be loaded and edited 
if the program crashes. 
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Once you type RUN and press RE- 
TURN, the first screen will ask you to 
enter the starting entry number. If this 
15 the first time you are using the pro- 
gram, it will be '1'. If you are going to 
LOAD previously saved entries, just 
press RETURN with no number. 

There will be a slight pause as the 
computer works itself out, then the 
main entry screen will appear with a 
beep. The cursor will be on the bottom 
of the screen — commands are en- 
tered from this point and nowhere else. 
If you wish to complete an entry, press 
RETURN. The cursor will then move up 
to the date — type it in the DDMMYY 
format as indicated (1st October, 1986 
would бе "0110867. Remember to put 
a zero in front of the number if it is a 
single digit (i.e. 4th is O4, March is O3). 

An important point to note is not to 
go beyond the dotted markers for each 
parameter. If you do, the computer will 
automatically remove the extra charac- 
ters but your screen will end up in rath- 
er a mess. If the screen does happen to 
get into a mess, just use the CLEAN 
command to reprint it. 

When you have the date typed in, 
press RETURN and the cursor will 
move down to callsign. Type this in, 
not forgetting to press RETURN once 
you have finished. The cursor will then 
move down to the time. As with date, 
time should be entered in the HHMM 
format — i.e. 7 PM EST would be еп- 
tered as 1900 (or 1100 UTC). 

Be careful not to use semi-colons or 
commas in any of the entries, especial- 
ly in 'remarks', as this will cause an 
error in the computer — 'extra ignored' 
or ‘redo’ — making life just a bit con- 
fused. If you do encounter such prob- 
lems, forget the entry you were typing 
in and press ВЕТ. ^! until you hear ihe 
command line click. You can now see 


PROGRAM LISTING 


0010 POKE 30744,1: POKE 30862,80: POKE 30853,92: CLEAR 


10000: CLS 


0015 PRINT "SERIAL: TPE2.310586*: PRINT 
0020 PRINT "COMPUTER LOG BOOK’: PRINT 'BY ALEX JOHNSON” 
0030 PRINT "(CI COPYRIGHT 19867: PRINT8386, “STARTING ENTRY 


[space NUMBER"; 


0040 T1-99; INPUT S3: IF 5109999 OR S1(0, 10 ELSE CLS 


the reason for this click that cannot be 
turned off. Type 'CLEAN' as before and 
restart the entry. 

If the screen is complete and cor- 
rect, type 22” and press RETURN. This 
fills in the entry. 


SPECIAL COMMANDS 


Once you have a few entries in the 
log, you can have some real fun. Re- 
member commands can only be 
entered on the bottom line of the 
screen — the command line, and it 
is only necessary to enter the first two 
letters of each command. 

FIND is used to look through the log 
entries for a specified callsign. When 
the callsign is located, it will be dis- 
played by filling in the details on the 
entry screen. You can then continue 
the search for further contacts by 
pressing 'F', or resume log entries бу 
pressing “С”. 

DELETE removes an entry, placing 
a void on the callsign and removing all 
other information. You are asked for 
the entry number, so if you're unsure of 
the number, use DISPLAY or FIND to 
locate it. 

SORT rearranges the entries in al- 
phabetical order (press 'C' for callsign) 
or in entry order (press ‘E’ for entry). 
This is a BASIC program, so sorting 
does take a long time. Make yourself a 
coffee and have a break while it sorts. 

RESTART simply starts the pro- 
gram over again. All entries are re- 
moved from the memories and all 
variables are reset, so SAVE your log 
before using RESTART. 

DISPLAY prints all entries onto the 
screen. if you wish to pause while the 
entries are listing, press ‘P’ or the 
space bar. To stop the list completely, 
press 'S'. Once printing is complete, 
press 'C' to continue log entries. 


0150 PRINT "ТН 


0050 DIM 510,70, J$(101, K$L10): D$2*000000*: №=-1 vee! 


0060 2$="[32 spaces]* 
006518). ааа, 


0130 PRINT "КЕС R/S 
0140 PRINT 'FRER MHZ? 


CP or Continuous Print is used to 
keep a running hard copy of all entries 
as they are made. CP pages are not 
headed or numbered. When CP is acti- 
vated, it is indicated on the command 
line. CP is deactivated by retyping CP 
on the command line. 

PRINT makes a hard copy of the 
entire log on the printer. You must first 
enter the page length and the inter- 
page length. The page length must be 
more than six lines. Each page is num- 
bered and headed and also has the date 
displayed on it. Stop and Pause com- 
mands are the same as for DISPLAY. 

SAVE is used to send log details 
from RAM to tape. The SAVEd entries 
all have the same file number, so take 
note of the counter number on the da- 
tasette each time you SAVE. 

LOAD is used to retrieve previously 
SAVEd files from tape. 

MEMORY displays the amount of 
RAM, string memory and file space 
remaining. 

BEEP turns the key beep on and off. 
When BEEP is activated it is indicated 
on the command line. To deactivate it, 
type BE again. 

CLEAN is used to clear and reprint 
the screen if it becomes messy through 
an error. 

ZZ enters the on-screen details in 
the log file. 

| have two versions of the program: 
the one listed here (tape version) and 
another for VZs with a disk drive. The 
disk version is, | must admit, far superi- 
or in speed, capacity and commands. If 
difficulties are met typing this program 
in, and you would like a tape or disk 
copy of the working program, please 
drop me a line at the address men- 
tioned earlier, with a stamped self-ad- 
dressed envelope, and I will offer some 
suggestions. 


0070 IF С%=1, (4:0: CLS: GOTO 80 ELSE ММ 
0080 N$-MID$(STRSUNT4S1] ,2, LENLSTRSUNT 91] 1] 
0090 IF LEN(NSIC4, N$z'0'1N$; GOTO 90 

0100 X-USR(O): PRINT&O,2$12$128; 

0110 PRINTE96, "ENTRY 
0120 PRINT 'CALLSIGN? VK....*: PRINT 'HHMñ 
oot PRINT "SENT RIS ° 


? 'qN$: PRINT “DDARYY 2706 
9 L] 


caerse se PRINT "RODE 2,22 


RS ec a PRINT RANE 2,0252 


0160 PRINT "REMARKS ? .,..............'1 IF N1)IY,60 SUB 640 
0170 PRINT8448, '[8 spaces]?[22 spaces]'j 
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3s. 


0175 IF 24-1, PRINT@448, '[rev]CP' 
0176 IF Y1=1, PRINT@4S1, “(меу ШЕ 


0180 PRINT8456, '';; INPUT AS: IF A$z**, 320 ELSE AS-LEFTS 
(6,21 

0190 IF A$z'FI*, 440 

0200 IF A$="DE", 510 

0210 IF A$="50", 550 

0220 IF A$='RE', RUN — 

0230 IF 86-017; 670 

0240 IF A$z'PR', 730 

0250 IF A$z'CP*, 650 

0260 IF A$='SA', 880 

0270 IF A$="LO", 930 

0280 IF A$-'ME', 1020 

0290 IF AS="BE*, 990 

0300 IF A$="22", 350 

0305 IF A$z'CL', (421: GOTO 70 

0310 6070 170 

0320 FOR М! TO 10: PRINT@(ARE321 +104, **{: ІРМІЕ!, INPUT 
D$: GOTO 340 

0330 INPUT  11$0A1, NTI 

0340 NEXT; POKE 28671,1: POKE 28671,32: 6010 170 

0350 PRINT8O, *LrevICHECKING’: 11$00,NT)zN$: I1$0L,N1)20$ 

0351 11$02, N11z11$02,N114Y$: 11$03,N1]z11$ (3, N11 Y$ 

0352 11$04,N11211$14, NTI +1$: 11$15,811z11$05, NS) e$ 

0353 [1$05,N112T1$ (6, N11 4Y$: 11907, N11 2 11$ (2 , NT] AVS 

0354 I1$(8,N1) 711608, NE) +YS: LI$(9,N11211$(9, NE) +Ү$ 

0355 11$010, N11 211$ (10, NT) +$ 

0356 11$02,NTI zLEFT$(LIS(2,N1) , 61: I1$03, NT) zLEFTS 
(1$, 11,41 

0358 11$(4,NT1zLEFTS (TIS (4, МА), 21: LISIS NI) zLEFTS 
(11$(5,К%),2) 

0360 TIS(6, NS)=LEFTSITIS(6, NE), 71: 11907, NN) LEFTS 
U1$0, 811,31 

0362 11$08, NT) LEFTS (TIS, NE), 10); 11$(9, NT) zLEFTS 
(1$(9, NB), 10) 

0344 ILS(LO,KSI=LEFTS(LLS(L0, NT), 16) 

0366 IF N1-0, 420 

0348 FOR AT=NT-1 TO 0 STEP -1: IF 11$02,N11211$02,A1) , 380 
ELSE NEXT 

0370 6070 420 

0380 PRINT8O,I1$(0,A1];* — (rev]FQUND*? PRINT I1$12,A1]; 
*(spacel'; 11$0L,A1)j 

0390 PRINT "[spacel*; I1$03,A11; "Ispacel*; 11$09,M1) 

0400 PRINT8I3, "Crev]P)RINT DIELETE* 

0410 A$=INKEY$: IF A$z'P', 420 ELSE IF A$z'D*, 100 ELSE 410 

0420 IF 721-1, 430 ELSE 70 

0430 FOR A1-0 TO 10: LPRINT 11$0A1, N1) IF ASCLO, LPRINT 
* [space]'j 

0435 NEXT: LPRINT: GOTO 70 

0440 PRINT@O, “CALLSIGN TO FIND ? VK....*: PRINTED,” 735 
INPUT B$ 
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0450 РКІКТЕ0, '(rev]SEARCHING'; 2$: FOR AT=0 TO N1-1 

0450 IF 116(2,A1)=1$, 470 ELSE NEXT: GOTO 100 

0470 PRINT@0, "Lrev]FOUND';2$: FOR 1-0 TO 10: PRINTR(EL 
13214105, 11$001,A11 

0480 NEXT: SOUND 0,2: PRINT@6, "(reviFIURTHER CIONTINUE' 

0490 CHIKKEYS: AS=INKEYS: IF A$z'F', 500 ELSE IF М7”, 
100 ELSE 490 


0500 X=USR(0I: PRINTEO, '(revlSEARCHING';2$: NEXT: GOTO 100 

0510 PRINTEO, **;: INPUT "ENTRY TO DELETE *;A1: А1=А1-51 

0520 IF ATCO OR AT)NT-1, 100 

0530 PRINTEO, "(reviDELETING*;2$: FOR B3=1 TO 10: 
I1$0(91,A1])z' (space]*: NEXT 

0540 116(2,A8)="VOID*: SOUND 0,3: GOTO 100 

0550 PRINTEO, “SORT BY (revlEINTRY CIALLSIGN' 

0560 AS=INKEYS: IF AS="E* OR AS="C*, Х-/58101: GOTO 570 
ELSE $50 

0570 PRINT@0, '(reviSORTING';2$ 

0580 FOR A10 TO N1-1: FOR 21-0 TO 10: J$0D1]z11$(01, A1]: 
NEXT 11 

0590 FOR B1-A1 TO N1-I 


0400 IF AS=*C*, IF J$(2) S 11$02, B1) , 630 

0605 IF A$s"E*, IF 1$(0) (S160, B1), 630 

0610 FOR 11=0 TO 10: K$D1IzLI$(DT, P): LISD, 11216001] 

0620 1$(011-K$(01): NEXT DY 

0630 NEXT BL: FOR 11-0 TO 10: LI$D1, A1) 2150011 : NEXT D, At 
: 6010 100 

0640 PRINTEO, "(reviFILES FULL’: SOUND 31,1; 31,1; 31,1; 
31,1; 0,5: RETURN 

0650 IF 21-0, 21-1 ELSE 21-0 

0440 6070 100 

0670 CLS: PRINT "[revlPlAUSE SITOP*: PRINT: SOUND 0,1: FOR 
At=0 TO NL-1 

0680 FOR B3=0 TO 10: IF B1=á OR B1=9, PRINT 17 spaces]*;: 
IF 0029, PRINT ° °; 

0690 PRINT ПМ; °: NEXT: PRINT: PRINT 


0700 ASINKEY$: IF A$z'[spacel* OR AS="P*, Х=058 (01: SOUND 
0,5: 6010 700 

0710 IF A$2'S*, 715 ELSE NEXT 

0715 PRINT "Crev]CIONTINUE' 

0720 AG=INKEYS: IF A$-'C*, CLS: GOTO 100 ELSE 720 

0730 PRINTEO, **;: INPUT "PAGE LENGTH’; L1: ІРІК?, 730 

0732 PRINTEO, 78: PRINT8O, **;: INPUT "INTER-PAGE LENGTH’; 
H" 

0734 PRINTEO, Z$: PRINT8O, **;: INPUT "PAGE NUMBER*;PT: 
P1ssP1-1 

0736 PRINTEO, 'SET UP PRINTER (rev]SI TART WHEN READY" 

0740 A$sINKEY$: IF A$="S", X-USR(O): GOTO 750 ELSE 740 

0750 PRINTEO, '[rev]PRINTING(rev off) (rev]PIAUSE SITOP*; 
2$: GOSUB 760: GOTO 840 

0760 PR=PS+L: LPRINT CHR$114); “COMPUTER LOG BOOK’ 
CHRS(15) I 

0770 LPRINT ТАВ (4511 “PAGE °; P1 
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0790 IF Pl, 04: БОТО 813 

0790 D&=6: РІМ * BY ALEX JOHNSON’; ТАВ (6015 
H18$:0$,1,2)5 */'{ 

0800 LPRINT MID$(0$,3,21; 4/4 MID$(DS,5, 2) 

0810 LPRINT ° (C) COPYRIGHT 198617 

0815 LPRINT: LPRINT 

0820 LPRINT "ЕМЕТ DATE ` CALSGN TIME R S FREQ MD GTH 
(8 spaces]*; ы 

0830 LPRINT °МАМЕС7 spaces]REMARKS': LPRINT: RETURN 

0840 FOR A1-0 TO N1-1: 0%=01+1 

0843 BS=INKEYS: AS=INKEYS 

0845 IF A$z'[space]' OR A$z'P', X=USR(O): SOUND 0,5: 6010 
843 

0848 ІР 45-5”, 100 

0850 IF DILL, FOR 11-1 TO 1%: LPRINT: NEXT: 60508 760 

0860 FOR 81-0 TO 10: LPRINT 11$(02,41);: IF 31010, LPRINT 
"(space)"; 

0870 NEXT: LPRINT: NEXT: 6010 100 

0880 CLS: PRINT '[rev]SAVE[rev off] FILENAME °$: INPUT C$' 

0885 PRINTES, '(reviSITART WHEN READY(rev ot11*;2$ 

0890 AS=INKEYS: IF A$z'S', X=USR(O): PRINT@4, “теу 167125 
*60T0 900 ELSE 890 

0900 PRINTE "100. DATA, START, C$,51,N1 

0905 FOR A10 TO N1-1: A$z**': FOR BR=0 TG 10: A$-AS:IIS 
(BLAS). NEXT 

0910 PRINTA LOG’, A$ 

0920 PRINT898, AL C$: NEXT: GOTO 980 

0930 CLS: PRINT '(revlLOADIrev off] FILENAME °$: INPUT C$* 

0935 PRINT8S, "'Irev]SI TART WHEN READT';2$ 

0940 А6-ІНЕЕТ IF ASz'S', X=USR(O): PRINT@4, "lrev]ING'; 
2$: 6010 950 ELSE 940 

0950 INPUTE "LOG.DATA.START', A$ ST, NT: IF AS=C$, 960 ELSE 
950 

0960 FOR A1z0 TO N1-1: INPUTS 'L0G',A$ 

0961 11$(0,A112810$(A$, 1,41: 11$(1,А11=М10$(А$,5,10) 

0962 11$(2,A1]-MID$(A$, 11,161: 10$03, A0) -MLDS (A$, 17,201 

0963 11$04,A11z810$(4$,21,22]: 11$05, ATI=MIDSIAS, 23, 24) 

0964 LISLE ATI=MIDS(A$,25,31): 11907, А zMIDS (46, 32, 341 

0965 11818, A11 28 ID$(A$,35, 461: 11$(9, A01 M 1D$(4$,47,561 

0966 L1$010, A11 :810$04$,57,72] 

0970 PRINT A1 C$: NEXT 

0980 SOUND 20,9: (1-1: GOTO 70 

0990 IF PEEK (30729120, POKE 30779,1: Y1-0: GOTO 100 

1000 POKE 30779,0: Ү1г1: GOTO 100 

1010 SOUND 0,5: PRINT80O, Z$: GOTO 100 

1020 CLS: PRINT ° (гем 1МЕМОВҮ LEFT”: POKE 30862,21 2: POKE 
30863,39 

1030 PRINT: PRINT: PRINT 11-81; “FILES LEFT’ 

1040 PRINT USR(X); “BYTES OF RAM FREE’ 

1050 PRINT USR(X$1); “BYTES OF STRING RAM FREE’: PRINT 

1060 PRINT: PRINT: PRINT '(rev]C)ONTINUE* 

1070 POKE 30862,80: POKE 30863, 52 

1080 AS=INKEY$: IF A$z'C", С1=1: GOTO 70 ELSE 1080 


$ o р s. 


Basic program for 
vented box enclosures 


This short BASIC program for VZ computers will design the size of 
the vent needed in a bass reflex enclosure to tune it to a given frequen- 
cy. It calculates the length of the vent from the given diameter, box 
volume and box frequency. Also the tuned frequency of an existing en- 
closure can be found from the cabinet volume and vent dimensions. 

Surprising though it may be, the woofer size or type does not affect 
the tuned frequency; this means that you won't need any speaker data. 

If the program gives а vent length of about 20mm then just a hole in 
the baffle is needed. Remember, however, that any vent should have a 
diameter not less than one quarter of the woofer diameter to prevent 
excessive air velocity. 

For checking an existing design press RETURN when "BOX 
FREQ. HZ..." appears. This frequency is then calculated using the 
other data. If “NEW VENT DIAMETER MM. " appears, enter a new 
larger diameter and try again since the desired frequency cannot be 
achieved with the previous value. 

Phil Allison, 

Summer Hill, NSW. 


CLS:PRINT 

PRINT" PROGRAM TO CALCULATE VENTED" 

PRINT" BOX PARAMETERS” 

PRINT"  *s*aeeseceeeeeereuseeereeee" ЕБІМТ-РКІМТ 


INPUT” BOX VOLUME LITRES “:VB: PRINT: IFVB« =OTHENSY® 
INPUT” VENT DIAMETER MM. ":0: PRINT: ІРО. -ОТНЕМ<О 
IFFB»OTHEN100 | 

INPUT" BOX FREQ. HZ . ";FB:PRINT: IFFB: ОТНЕМ?О 
IFFB»OTHEN100 
INPUT" VENT LENGTH MM "Ш: PRINT: IFLcO9THEN22 

IF FBzOTHEN120 

Lz2360*'0^2/(VB* FB^21-,8*D: IFL. ОТНЕМРВІМТ" NEW”: ОТОМ 
PRINT:PRINT 

PRINT" VENT LENGTH MM:  ";:PRINTUSING"$222.4":L 
PRINT" VENT AREA SO.CM:  "::PRINTUSING"2242.4":2.B8SE-3*D^z 
GOTO1S0 

FBs((2360*D^2) /tCL«.8* D) * VB1)^0. S: PRINT: FRINT 

PRINT" BOX FREQ. HZ: "SSDPRINTUSING"2424.*":FB 
PRINT" зишжачачз-закшсяшааатаз:--.”-ЕВ-0 


PRINT: PRINT: GOTOSO 


ELECTRONICS Australia, November 1986 35 


Memory mapping and 
computer number systems 
— using the VZ200/300 


Bob Kitch 


This contribution will hopefully stimulate users of the VZ2OO|3OO (or perhaps 
other small micros) to think about what actually lies behind the keyboard or 
monitor. Therein resides, not simply a collection of electronic components, 
but a truly creative, near-art form; only restricted by the users’ ingenuity. | 
also hope to provide a firm foundation for users to understand how they 
should visualise or conceive the internals of their computer. This will lead to 
more imaginative and rewarding use of their somewhat meagre hardware 


resources. 


THE COMPUTER can be conceptualised (thought of) on two 
distinct planes: (i) the tangible, mechanical or physical lev- 
el; and (ii) the intractable, esoteric or conceptual level. These 
two "states" are often synonymously associated with the 
hardware and software aspects of computing but they are 
not quite analogous as a brief consideration should reveal. 

The realisation that the computer can in reality adopt any 
position between these two end-states sheds some insight into 
how useful a computer can be as a problem solving tool or 
as a creative device. 

The computer is a virtual machine. It is incapable of do- 
ing mechanical work such as that done by an internal com- 
bustion engine. Furthermore, a computer can be configured 
via suitable programming to carry out any function that we 
may envisage for it. Again the analogy with a tool, for in- 
stance a spanner, is instructive. A shifting spanner has only 
one use — it is dedicated to that job (although I have seen 
some tradesmen use it as a hammer!). The important notion 
in computing is that our imagination is the limiting factor 
in determining the usefulness of the computer. We may wish 
to use it to monitor the security of our home or to create fan- 
tasies of our mind in intellectual and role-playing games, to 
carry out tedious and repetitive number crunching, or to cor- 
rect text for us — etc. The spectrum of jobs is vast, and in- 
creasing almost daily. 


Transformation 


Somewhere between the conception of an idea and the trans- 
lation of this into a computer-based chore, lies the fundamen- 
tal task of the programmer. The use of the operation called 
“transformation” is vital to the succes of this translation. The 
transformation procedure takes a particular notion in our 
minds (the “object”) and produces a “model” of this in the 
computer. The model may be termed the “image”. A good 
computer image is a skilful combination of the joint hard- 
ware and software aspects of the particular computing con- 
figuration. 

Often a number of step-wise transformations are required 
to reach the desired goal or end-point. The distribution of 
tasks proportioned between hardware and software depends 
upon 
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i) the resources available, and 
ii) the particular talents of the person undertaking the 
implementation. 


Electrical engineers tend to solve problems with hardware 
intensive solutions, whilst programmers often develop 
elaborate algorithmic software solutions. 

Not surprisingly, transformation has a well developed and 
rigorous expression in mathematics where the somewhat al- 
lied ideas of correspondence (between similar objects) and 
function (connecting objects) have relevance. The box enti- 
tled "Transformation Concepts” accompanying this article 
futher elaborates upon some of the powerful transformation 
concepts — in layman's language. 

The way in which “correspondence” occurs in computer 
science and with which perhaps most programmers are 
familiar, lies in the various types of codes and coding prin- 
ciples which are employed to connect the diversity of ideas 
under software control. Note that in transformations from 
object to image the direction of the conceptual movement 
may be in either direction or sense. 

Thus encoding represents transforming the object into the 
image and decoding represents returning the object from the 
image. Also, multiple levels of coding areoften used, depend- 
ing upon where we are positioned in the hardware-software 
spectrum. 


Codes 


Consider the following code types: 


i) Codes used by electronic circuits to perform digital oper- 
ations e.g: binary codes. 


ii) Codes used to convert decimal numbers into binary form 
© e.g: binary coded decimal (BCD) and gray scale. 


iii) Codes used to convert decimal numbers and alphabetic 
symbols into digital form e.g: ASCII, EBCDIC and 
. Baudot code. 


iv) Codes used by computers to perform a prescribed ser- 


jes of operations e.g: Z-80 instruction code and PDP8/E. |» 


| of 6. 


у1-300 


Stu 2. бак Std. + | бак 
16K Expansion’ Memory Expansion 16К Expansion Memory Expansion 


Signed 
Decimal 


| Decimal 
Hexadecim 


| Unsigned 


LI 
ne 
~ 
-" 
an 
an 


0 
“ә 
° 
> 
œ 
^^ 
со 
о 
o 
0/1 


. 
№ 
о 
E 
wo 


~ 12268 
- 12889 


Switched: 16K RAM Bank 0/1 


Switched 16K RAM Bank 
Switched 16K RAM Bank 
Switched 16K RAM Bank 
Switched 16K RAM Bank 
Switched 16K RAM Bank 


16K Expansion RAM 


-16384 


-16385 
-18432 


-18433 


2K top of fixed 
RAM Bank 


12К top of fixed 
RAM Bank 


16K Expansion RAM 


Internal User RAM 16K 


Internal User RAM 6k 


Reserved RAM Reserved RAM 


ENS RAM 2K 


Video RAM 2K 


Memory Mapped 1/0 2k Memory Mapped 1/0 2K 


Reserved ROM 
Reserved ROM 


—FF 
Port Addressed 1/0 Port Addressed 1/0 


MEMORY MAPPING 
FOR 
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NUMBER BASE CONVERSION & MEMORY MAPPING 


In the accompanying article the need to be able to change num- 
ber representations, according to differing bases, becomes ap- 
parent. 

Three bases are usually cited and often freely interchanged. 
These are: 


base 10 — decimal (dec./D) uses symbols 0-9 
base 16 — hexadecimal (hex./H) uses symbols 0-9, A-F 
base 2 — binary (bin./B) uses symbols 0 and 1 


The first system is the most familiar to us. The last is the num- 
ber system of digital computers. The hex system is a convenient 
intermediate form between decimal and binary systems. (A fourth 
system to base 8, or octal — using symbols 0-7 — is sometimes 
employed and is also a convenient intermediate form — see later). 
The accompanying table is an indispensable reference for con- 
verting base numbers. І always have this chart alongside me when 
programming — although some people may be fortunate enough 
to have an electronic calculator with base conversion functions. 
Because there are three base numbers, it follows that there are 
six possible types of conversion. At the conclusion of this box you 
should be familiar with each conversion and be able to manipu- 
late the resulting numbers. 


DESCRIPTION OF TABLE 
Table 1 is composed of six columns. 

Column 1 (left-hand most) represents single hex digit ranging 
from OH to FH. 

Columns 2 to 5 are labelled Most Significant 3-0 for decimal 
numbers. 


MSO corresponds with 16* *O*N (1*N) 


MS!  " " " 16**1°м(16°М) 
MS2  "  " “ 16'*2'N(256"N) 
MS3  " ”  " 16'*3'N(4096*N) 


Column 6 is the four-bit binary number corresponding to the hex 
digit in column 1. 

One hex digit can represent half-a-byte (one-nibble) of binary in- 
formation. Hence the close relationship between hex and binary 
representations. A 16-bit (two-byte) binary number maps onto four 
hex digits. A single byte maps onto two hex digits. (Octal or base-8 
numbers map onto three bits of binary hence an eight-bit binary 
number can be represented by three octal digits.) 


CONVERSION PROCEDURE 
A. We will start converting a hex address value into its correspond- 
ing decimal and binary values. 


1. Converting hex to dec. We will do this using an example. For 
instance, what is the decimal mapping of address 345CH? Note 
that the Most Significant Byte (MSB) is 34H and the Least Signifi- 
cant Byte (LSB) is 5CH. 

The corresponding decimal for 3H (actually 3000H) appears in 
column М53 and maps as 122880. Similarly, the 4H (400H) in po- 
sition MS2 maps as 1024D; 5H or 50H maps as 80D in MS1 and 
finally, CH corresponds to 12D from MSO. 

Thus, 

3000H --->- 122880 
400H ---> 10240 
50H ---- 800 

+ СН —— + 120 


345СН: ——313404D 


So 345СН maps as 134040. А little involved, but easy with the 
table. 


2. Converting hex to bin. Remember l said that hex and binary sys- 
tems are closely related. Again, what is the binary mapping of ad- 
dress 345CH? 


3 4 5 C 
| | | | 
0011 0100 0101 1100 B — trom column 6 


So the binary address for 345Ch would be — 


Н — trom column 1 


MSB 001101008 LSB 010111008 


It could hardly be simpler! 
See how difficultit would be to remember binary, but hex is much 
more concise and memorable? 
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B. Letus now take a decimal number and convert iti nto hex and 
then binary; 


3. Converting dec to hex. What is the hex mapping of 220100? 
This involves a little scanning of MS3-MSO of the table. 

First scan down MS3 for a decimal number which is equal to, 
or just less than, 22010D. This is seen to be 20480D which maps 
as 5000H. Subtract this value from 22010D and look for the num- 
ber just lower than this is MS2. For example 22010D — 20480D 
= 1530D. The number just lower than this in MS2 is 1280D which 
maps as 500H. The remainder from this operation is 250D which 
corresponds to 240D or FOH in М51. The final remainder is 10D 
which maps as AH in MSO. 


Thus: 

` 22010D 

-20480D ---->- 5000H 
- 12800 — —3 БООН 
- 2400 ——»- FOH 
- 100 —— + AH 


00 — —39 55FAH 


It should be easy to convert this hex number into binary 
equivalent. 


55FAH mapsas 01010101 11111010 B 


C. Let's now start with a binary number and convert it to hex and 
then to decimal (as previously done). 


4. Converting bin to hex. By now you should be getting the idea. 
Simple isn't it? For example, convert the two-byte address 
10011111 110100118 (looks horrible doesn't it?) into its hex value 
and then decimal value. 

1001 1111 1101 0011 B — trom column 6 


9 F D 3 H — trom column 1 
Furthermore, 


9000H — —3 368640 


FOOH ———® 38400 
DOH 3y 2080 
+ 3H——> + 30 


“ӘЕОЗН —— 409150 


For those that have been following closely, 40915015 ап unsigned 
decimal and mapped as a signed decimal it is 


40915 — 65536 = -24621D 


(see later in main article if unsure) 


So in summary, we now have four ways of mapping the same 
address: 


hex 9FD3H 

unsigned decimal 409150 

signed decimal -246210 

binary MSB 10011111B LSB 11010011B 


As a final comment and for completeness, it should be said that 
all the examples given herein are for unsigned decimal numbers 
in the range of 0 to 65535D. These map onto two-byte numbers 
ranging from 0000H to FFFFH in hex and 00000000 00000000 to 
11111111 11111111 in binary. 

The same principles apply for single-byte numbers except that 
the range of unsigned decimals is reduced to 0 to 255D and 00H 
to ҒЕН in hex. Only MS1 and М50 need be used in converting 
single-byte numbers. c 

Given this background then, it should be easy to calculate the 
appropriate values to POKE into addresses 308620 (78ФЕН) and 
308630 (788FH) to initialise the USR( command on the VZ. But 
more of that next time. 

If you want some practice in number base conversion and re- 
quire some additional confidence in following the procedures set 
out herein then take some addresses from the memory fnap and 
ractise converting them. (I hope I get them right!) 


3 of € | 


v) Codes used by programmers to describe a problem to 
the computer e.g: BASIC, FORTRAN, and SAS. 


vi) Codes used by the populace to have work done by a com- 
puter which is often transparent to the user. Everyday- 
type language is often used to communicate to the com- 
puter. (i.e: no special skills are required) e.g: POS (‘Point- 
of-sale’) terminals or pushbutton data entry panels on 
microwave ovens etc. 


All of these forms of transformation (or coding) describe 
a relation or function between any object (the notion) and 
its corres, onding image (the programme). Flowcharting is 
often an intermediate coding step in the transformation 
process. 


The memory image 


Towards the hardware end of the spectrum previously allud- 
ed to lies the memory or storage system of the computer. Both 
the programme (or driver) and data are stored in memory 
which is sequentially addressed in the present generation of 
Von Neumann machines. Often a successful programmer 
"needs to get close" to this physical device — particularly 
in a small microcomputer environment where the memory 
resource is usually limited. 4K of memory usually requires 
some smart coding to get а worthwhile programme running 
— and often in machine code. Larger machines sometimes 
use a virtual-or paged memory system so that the program- 
mer does not need to get close to the hardware limitations. 
Such things as programme and storage overlaying can be 
done to make the memory system appearlarger than it actu- 
ally is. The new generation of 16- and 32-bit microproces- 
sors include on-chip memory management functions (e.g: the 
80286) to handle memory paging. 

The usual way of describing the memory system of a par- 
ticular computer is via the " Memory Map". This is a trans- 
formation of the actual (object) memory chips contained in 
the computer. This conceptual diagram (image) is an aid for 
the programmer. It is not a map in the same sense as a geo- 
graphic (or road) map, but rather it has a one-to-one cor- 
respondence with the actual memory system. It does not 
actually point up any directions in the memory, in the way 
that a road map does. The memory map is simply a useful 
programmers' image of the storage which can be accessed 
by the CPU and the way it is organised. 


VZ memory maps 


(You thought I was never going to get to it!) Figure 1 is a 
Universal Memory Map) for all the VZ-200 and VZ-300 com- 
pluters. These are expandable machines in that additional 
memory modules, disc systems and various other peripher- 
als can be added onto the standard system. Eight distinct 
types of machine are detailed: 


a) standard “8К” VZ-200 and 
b)standard “18К” VZ-300 (both shown in the dark outline) 


In the standard machine an area of 10K is reserved for plug- 
in ROM cartridges. To each of the types can be added: 


i) a 16K memory expansion module or 
ii) a 64K memory expansion module, and additionally 
iii) a disc system containing an 8K DOS can be added which 
utilises portion of the reserved ROM area. 


Thereby eight types of VZ configuration are possible and 
shown in Figure 1. 

A study of the range of memory expansion modules added 
to the VZ-200 or VZ-300 indicates that they occupy different 


4 # c 


areas of memory. This clearly shows why expansion mod- 
ules are not interchangeable between models. Fortunately all 
of the “system areas" are compatible across models — other- 
wise software would not be transportable. All memory ad- 
dresses below the reserved RAM (communications area) are 
thesameoneither system. Thisincludes video RAM, memory 
mapped I/O, port addressed I/O and DOS ROM. As most of 
the peripherals are mapped into the I/O areas, these devices 
are also compatible between models. 


Numbering systems for memory mapping 


The three columns extending down the left-hand side of the 
map are the memory address ranges in the computer that are 
handled by the Z-80 microprocessor. Again the concept of 
"mapping" is worth noting — because the CPU uses none 
of the techniques shown in the columns to actually address 
memory! The actual (object) addressing method is a 16-bit 
wide binary sytem which, with suitable decoding, can resolve 
all the addressing functions necessary. A binary view of the 
addressing is unnecessarily complicated to obtaining a clear 
image of the VZ's address space. 

An explanation of the three numbering systems used on 
the memory map follows. 

Two forms of decimal (base 10) notation and one of hex- 
adecimal (base 16) are shown. These are image numbering 
systems of the actual (object) 16-bit binary (base 2) method 
used by the Z-80 (Port addressed I/O uses only eight-bits of 
the Least Significant Byte of the address, to uniquely identi- 
fy the 256 I/O ports). 

If you are not particulary familiar with converting or deal- 
ing with numbers derived from differing bases, then read the 
boxes called “Number Base Conversion" accompanying this 
article. 


Unsigned decimal addressing 


This number system is shown in the central column of the 
memory map. It is perhaps the easiest to understand and ex- 
plain. With a 16-bit binary number as used on the address 
bus, it is possible to uniquely map 2**16 or 65536 memory 
locations. These addresses may furthermore be mapped into 
a one-dimensional vector with memory location OD (2** 1-1) 
mapped at the bottom and memory location 65535D (2** 16-1) 
mapped at the top. This convention of “Чор” and "bottom" 
may be inverted — but top of memory is conventionally 
referred to as the bigger decimal number — so it makes little 
logical sense to have “ор” at the bottom! (Note that some 
memory maps are drawn in this inverted sense). 

Another sense of mapping is apparent and worth mention- 
ing here. This type of map is a byte-mapped transformation 
as each address is actually eight-bits wide. Most data process- 
ing programming deals with bytes as the fundamental units 
of information. However, the Z-80 can be addressed down 
to bit level and hence another bit-mapped image containing 
524288 (65536*8) bits could be conceived. Some controller 
applications make use of bit mapping because often the avail- 
able RAM for programme use is rather restricted and usual- 
ly the definition or resolution of the process is two-state and 
can be aptly modelled by a single-bit. 

In the unsigned decimal mapping methods, magnitude or 
size of the address number uniquely defines the location of 
the address in memory. Relational operators such as “great- 
er than" and “less than” work correctly. This image of ad- 
dressing is most easily visualised but it bears a difficult 
relationship to the 16-bit object addressing. 


Hexadecimal addressing 


This system is shown in the third column and has а stronger 
relationship to the two-byte wide addressing used by the CPU p 
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TRANSFORMATION CONCEPTS; 


In a transformation, the point being transformed is called the ob- 
ject. A transformation maps an object onto its' image according 
to some relation. 

An image is the result when an object is transformed. e.g: 


X ——X+2 

3 — 5 

0 ——» 2 

6 — 8 

-7 ——> -5 
object image 


“the image of 3 is 5” 


Relations are a way of connecting sets of numbers — a map- 
ping is a special relation. 

In a mapping, any number in the set being mapped is an object, 
but the entire set being mapped is usually called the domain. 

The domain of a function is a set of numbers mapped by the 
function. 
The domain is the object set. 


e.g: domain + range 


1 
2 
3 
4 


“the set (1, 2, 3, 4) is the domain” 


A mapping is a relation in which, for every object mapped, there 
is one, and only one, image. 


But X is a factor of 


4 
— 
—= 6 
L° 
15 


is NOT a mapping. 


is a valid mapping. 


Functions are special relations in which each object is uniquely 
mapped onto one image. 


3> X**0.5 (square root of X) 
> +1 or -1 
» +2 or -2 
—rar O +3 or -3 
is NOT a valid function. 


Correspondence has four types: 
Mappings are: 


Many to one correspondence One to one correspondence 


NOT mappings are: 


One to many correspondence 
u 
v 


c cmm <4 
LOC 
— 


Many many correspondence 


=ч 
==; 
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bus system, Each nibble (half-a-byte or four-bits) of the ad- 
dress is mapped onto one hexadecimal digit. 

Whilst this system may appear a little unfamiliar, it has 
magnitude and sense — the same as the unsigned decimal 
notation::Therefore, similar connotations apply to the hex- 
adecimal system as to the unsigned decimal system. 

The correspondence between “ор of memory” іп an un- 
expanded VZ-200 as being 36863D or 8FFFH should be ob- 
vious from the memory map. It is simply a different way (by 
virtue of the number base difference) of image-mapping the 
same object. 

In certain applications it is more convenient to use decimal 
notation — and in others it is clearer to use hexadecimal. If 
it is necessary to get close to the hardware, such as when 
designing the address decoding for a peripheral expansion, 
then hexadecimal, with its closer relationship to bus address- 
ing, is better. Alternatively, when a programmer is wanting 
to locate a routine in memory, there is less need to get close 
to the machine, (e.g: when PEEKing or POKEing), and the 
more familiar decimal system is easier. In reality, ex- 
perienced programmers or engineers readily flip from one 
to the other — particularly if they have a “smart” electronic 
calculator with base conversion functions. 

Up to this point, all should appear to be logical, orderly 
and comprehensible. Unfortunately, the people who wrote 
the Microsoft version of the BASIC interpreter resident in 
the VZ (and previously used in the TRS-80 Level II, System-80 
and PET) must have thought that unsigned decimal and hex- 
adecimal were too logical and easily understood! If you try 
to PEEK into an address higher than 32767D or 7FFFH you 
will obtain an “OVERFLOW ERROR” message during run 
time. A look at the Reference Manual informs you that the 
valid address range is from -32768D to +32767D. Fair 
enough, but can one now assme that "top of memory” is 
* 32767D and “bottom of memory” is -32768D. A reasona- 
ble deduction, but unfortunately, entirely incorrect! Is our 
faith in mathematics and logic (relational operators) mis- 


placed? 


Signed decimal addressing 


The culprit is the signed decimal numbering system shown 
in the left hand column of the memory map. This number 
system is closely derived from the 16-bit binary system. The 
signed decimal numbering is developed from the two's com- 
plement binary system which is a method that facilitates the 


TABLE 1. 
CONVERSION DECIMAL — HEXADECIMAL — BINARY 


0 
1 
2 
3 

4 
5 
6 
7 
8 
9 
A 
B 
c 
D 
E 
F 


sc 


» 


manipulation of negative numbers. Do not be overwhelmed will not provide a consecutive listing of memory. It will 
if the terms are unfamiliar as it is not essential to understand commence at the bass of the upper half of memory (SD = 
their derivation. There exists а simple relationship between 32768D) and proceed to the top of memory (SD = -1). It will 
the familiar unsigned decimal. and (һе. signed decimal then leap to the bottom of memory (SD = OD) and proceed 


systems. 3 to the mid memory (SD = + 327670) position. Not quite what 

The simplest way of expressing the relationship is that if was intended!; ^ 
the unsigned decimal address is greater than :32767D then To achieve the desired result, the following loop could be 
эн 65536 from the unsigned decimal value — there- written: 

y obtaining a (negative) signed decimal. If the unsigned 
decimal is less than or equal to 32767D then the ase 10 FOR UD = 0 TO 65535 
decimal value maps directly. Expressing this in BASIC is as 20 SD = UD: IF UD > 32767 THEN SD = UD — 65536 
follows: 30 V. - PEEK (SD) 

40 PRINT SD, UD, V 
UD = unsigned decimal value 50 NEXT UD 


SD = signed decimal value | 
This will correctly step-up through memory consecutive- 


To convert UD to SD: ly from bottom to top (but slowly!) 

15 IF UD > 32767 THEN SD = UD — 65536 Uses of the memory. тар 
ELSE SD - UD Having worked thus far through this exposition, what are 
some of the uses to which the memory map can be put? The 
To convert SD to UD first use is when it provides the programmer with a clear im- 
age (that word again) of how the addressable memory of the 
25 IF SD < 0 THEN UD = SD + 65536 computer is organised. A number of advanced programming 
ELSE UD = SD techniques for the BASIC interpreter also become available. 


š For example, the utilisation of the memory by a BASIC 
Refer to the mapping in the extreme left hand column of programme can be determined. Overlaying of the Programme 


the memory map wherethe signed decimal šystem is detailed. Statement Table by another routine but with retention of the 
Bottom of memory is still OD but top of memory is -1D. А Variable List Table, becomes possible. Also Assembly Lan- 
very important discontinuity occurs in the numbering sys- guage routines can be loaded into Free Space and called by 
tem at mid-memory, where adjacent bytes are numbered the USR statement. Overwriting and corruption of 
327670 and -32768D. Relational operators do not work in Programmes (images) can be avoided by reference to the map 
this mapping system. during loading. If, however, this does inadvertently occur, 


Suppose one wanted to PEEK into each consecutive then the memory map becomes an important load map for 
memory address over the entire range of memory from OD debugging purposes. 


to -1D (note!). As remarked previously, it is necessary to use A more detailed description of the I/O area (including the 
signed decimals when PEEKing. : video RAM) mapping for the peripheral devices, and the com- 
The loop written in BASIC — munications area would provide more information for ad- 
vanced programming techniques. Perhaps, with the Editor's 
10 FOR SD = -32768 TO «32767 indulgence, we may be able to explore these interesting areas 
20 V - PEEK (SD) at a future date? Meanwhile, get to understand your VZ'd, 
30 PRINT SD, V practise number base conversions and let your imagination 

40 NEXT SD run with applications for the VZ. 4. 
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Feedline Data Calculations for the 


The story of how this program came about is 
simple, but l believe it could be of interest. It all 
began when the price dropped on the VZ200 
and Wal VK4AIV, bought one. 


After learning the basics of its operation, he 
began to search for useful programs involving 
amateur radio, finding them few and far 
between. 


Much later, І purchased a VZ300 at the same 
price as Wal's VZ200 and naturally asked Wal 
what programs he had. 


. Upon discovering the scarcity, | sat down 
and wrote a series oí short programs to ease 
the problems of endless work with calculator, 


CLE: ТИЛЕП 
ЕБІНТІЕЗШ, 


^ 
Е 
b 
Bo 


UM CES 
м اانا‎ 


РЕІНТІР442. 


IFHzZzTHEHZ 


ns 
m] 


a ыз CÛ J OS n 
LU qu а Гал i mu a O 1 
ұл 


1 


м 
EA 


PRIMES: 


Z 
Cu md 


m. 
ізі 


pu 
احلا‎ 


AS 


ка t» o; — рз кана ра рш |‏ ن ا 
mh ЫЕ)‏ 
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з 
FRIBMTEISA: 
FRIHTRES, 
РЕІНТІРЗӘУ, 


RENEE EEE 
aci gem 


РЕІНТІ121. 
FEIHT2125. 
FREIHTiZZ?. 
РЕІНТЕ>З1. 
PRIWTS Soy 
FRIHTIAAZ. 
IFH= 1 THEHSAE ° 
ТЕН-гТНЕН tea 
TFM=2 THEN? FEE 
ТЕН=4ТНЕН1 45 
ІЕН= 1 THEM HIE 

ТЕН? «THEH1818 


EO TENER 


VZ200/300 


pen and paper, for amateur radio work. 


Copies of these programs were given to Wal, 
who tidied them up and tied them together. 
This listing is part of the result. 

The program is to enable those interested to 
quickly calculate parameters for the construc- 
tion of coaxial cable or open wire feeder 
sections for matching antennas to feedlines. 

The calculations are derived from standard 
amateur radio books and simply are converted 
into Basic statements. 


They are as follows: 


COAXIAL CABLE DATA 
1 Е of a cable of a given size. 


ARLE Tapi t 
FEEDER. GATE 


“CURES AL 
ОРЕН WIRE 


е 
“THOSE 


MPT IO" : IHELTH 


IFH=1THEH1 ба 


"AEE 


ПР 
CHELE” 
"B-CIHSIDE ГІН.ПЕ OUTER" 
М IDIBNDL RT T DS n 
пите Ма БІН ПЕ ТНМІЕЕ" 
ПЕЕ ЕЕЕ НС" 

QE TUM “ІНІЗІШІН 


Mies, LAL 


^re Tapi E 


HOSE 


H 


pot 3 0-12. 


P: 


Rick Buhre VK4AIM 
- 41 Mogford Street, Mackay, Qld. 4740 


` This program came about 
when the price of the VZ200 
dropped dramatically. 


Inside diameter of outer conductor for a 
2r MM impedance and inner conductor size. 
utside diameter of inner conductor for a 
P d impedance and outer conductor size. 
ut off frequency for a cable of given size 
and impedance. 


OPEN WIRE FEEDER DATA 

1 Impedance of feeders of known wire size 
and spacing. 

2 Spacing required for a given wire size and 
impedance. 

There is space in the program for future 

additions to be inserted. | hope many amateurs 

will find it of use. 
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Estimating ihe noise performance of an op 


amp stage is easy with 


a little circuit analysis 


and a short BASIC program to take care of the 
maths. The program requires only two 
resistance values and a figure for bandwidth 
to compute the noise levels for six popular op 


amps. 


by PHIL ALLISON 


There are several sources of noise in 
an op атр stage which together account 
for the.total background hiss level. 
These are the op amp itself (particularly 
the active devices employed in the input 
stage), the resistors used for gain set- 
ting, and the noise generated by the 
resistance of the signal source. 

It must be appreciated that any resis- 
tor has a self noise level caused by ther- 
mal agitation of its free electrons. This 
noise, commonly known as white noise, 
is random and spreads across the whole 
frequency spectrum. Its magnitude is 
given by a simple formula: 
where ` 
En = RMS noise voltage 


L = Boltzmann’s constant 1.38 x 10:23 


T = temperature in degrees K (degrees 
G-t273) 


B = bandwidth of measurement 


R = resistor value in ohms 

For example: a 10k() resistor at room 
temperature and measured with а 
20kHz bandwidth will generate a noise 
voltage of 1.84V. (Try some other 
values on your calculator to get a feel 
for the quantities involved).  . 

The program presented here can be 
used to select the best op amp for a 
given application or to examine the ef- 
fect on noise performance of design 
changes to a circuit. 

Before the program can be used, two 
resistance values must be derived from 
the circuit of the op amp stage in ques- 
tion. These I have called source resist- 
ance and input resistance. The first is 
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just the value in ohms of the internal 
resistance of the device generating the 
input signal. 

For example, for a 200-ohm micro- 
phone use a value of 200 for the source 
resistance, and for a high impedance 
microphone (internal step-up trans- 
former type) use a value of 50,000. If 
noise testing is to be done with the 
input shorted then use a value of 1 (one 
ohm) as the program will not accept a 
value of 0. 


Input resistance 


The input resistance has to be deter- 
mined from the circuit of the gain stage 
in question and here a little analysis is 
needed. Note that the input resistance is 
not the same as the input impedance for 
the circuits of Fig.1 and Fig.2. 

There are two common types of op 
amp gain stages: (1) the inverting stage 
as shown in Fig.l; and (2) the non- 
inverting stage as shown in Fig2. The 
input impedance of the inverting type is 
equal to R1, while the input impedance 
of the non-invertirig type is equal to Rin 


OUTPUT 
Q 


INPUT А? 
Ó 


Fig.1: inverting op amp stage. 
Gain — R2/RI. 


"ог 2. 


and may be almost any value. The sig- 
nal gains of these two stages are given 
by the formulas beneath each diagram. 

Don't worry if your circuit has capaci- 
tors in series with the input or feedback 
ground (Fig.2) as normally these can be 
neglected. 

In Fig.1, the input resistance is equal 
to R1 in parallel with R2. If R2 is more 
than ten times КІ, then just use the 
value of КІ. 

For Fig2, the input resistance is the 
same as for Fig.l (ie, R1 in parallel 
R2), but if Rin is less than ten times R1 
then calculate Rin in parallel with R1 
and R2 as well. If there is a resistor in 
series with the input, add this to the 
input resistance. 

The figure for bandwidth can be any 
value up to the circuit bandwidth. For 
audio purposes, a figure of about 16kHz 
is commonly adopted for specifications, 

The program will, in a couple of sec- 
onds, compute the equivalent input 
noise (EIN) and noise figure for six op 
amps. Other op amps can easily be 
added to the list. 

The EIN is a standard way of specify- 
ing input stage noise as it is independ- 
ant of the overall gain. If you multiply 
the EIN figure by the gain of the stage, 
then you will have the noise voltage ex- 
pected at the output. 

The noise figure is also calculated so 
that the standard of performance of a 
circuit can be seen at a glance. It com- 
pares the stage in question with an 
imaginary noiseless stage and quotes the 
difference in decibels. A figure of 1dB 
would be very good.and hardly worth 
trying to improve upon. This figure is 


Fig.2: non-inverting op amp stage, 
Gain = (R1 + К2)/КІ. 


CLS:PRINT 
PRINT" 
PRINT" IN 
PRINT" 
PRINT 
INPUT" 
INPUT" 
INPUT" 
PRINT 
БАТА 3.5Е 
БАТА 1.SE 
RESTORE 
FORIzi1TO6:READ EN,IN 
KTz4.1E-21 


SOURCE RESISTANCE 
INPUT RESISTANCE 


«9, 
-8, 


PROGRAM TO CALCULATE NOISE" 
OP AMPS" 


RBEEEREARBAXXEESRSREZSAXEESESAAWEAXA'" 


"IRS:PRINT: IFRS=OTHENSO 
"PRI:PRINT: IFRI=OTHEN60 


NOISE BANDWIDTH KHZ ";BW:PRINT: IFBW=OTHEN70 


ET=((EN*2+IN*2*(RS*24+RI%2)44*KT* (RS+RI) ) *BW*1E3)*0O.5 


IFI=1THENPRINT" 
IFI=2THENPRINT" 
IFI=3THENPRINT" 
IFI=4THENPRINT" 
IFI=STHENPRINT" 
IFI=6THENPRINT" 


RC4558 
TLO71 
LM301A 
UA741C 
TLOS1 


NESS34 "; 


:GOTO300 
; :GOTO200 
: GOTO300 
:GOTO300 
:GOTO300 
; :GOTO300 


PRINTUSING"ZZ2.22'"; ET*1E6; : PRINT" UV ''; 


NS= (4*KT*BW*1E3*RS)*0.5 


NF=20*LOG((ET/NS) ) /LOG(10) 


PRINTUSING" ##.#";NF;:PRINT" 


NEXTI 
PRINT" 


DB" 


INPUT"RTN'";A:IFA-OSOUND21,1:GOTO10 


independent of gain, bandwidth and sig- 
nal level. 


Low noise tips 


To optimise a design, the value of 
input resistance must be kept as low as 
possible. For an inverting stage, this is 
limited by the minimum acceptable 
input impedance. There is no such 
problem with the non-inverting stage, 
making it the preferred type for low 
noise stages. Most op amps will drive 
loads down to 1000 ohms or so, hence 
R1 plus R2 can equal this. The МЕ5534 
can drive loads down to 600 ohms. 

Don't worry about using expensive 
“low noise" resistors as these make no 
difference in an op amp stage where 
there is little or no DC across the resis- 
tors. Noise caused by a large voltage 
across a resistor is called excess noise 
and varies widely with resistor type. 


Using the program 
The formula for noise in the program 
appears in line 150. This sums all the 


noise sources involved using the pub- 
lished data for each op amp in turn and 


the result is quoted in microvolts. This 
data appears in lines 100 and 110 as 
EIN voltage and EIN current figures in 
volts and amps per Hz respectively. 
Line 320 computes the noise figure by 
dividing the result of line 150 by the 
noise of the source resistance and con- 
verting this to decibels. 

When return is pressed the program 
runs again so that you can enter new 
values. 

Due to device variations and the use 
of averaged values in the EIN data, the 
computed figures are not precise but are 
close enough to measured results to 
allow valid comparisons between circuits 
and op amps. 

The program was written for a VZ300 
computer but should work with little al- 
teration on almost any computer run- 
ning BASIC. 


References 

R.A. Fairs, Resistor Survey. Wireless 
World, October 1975. 

Walter G. Jung, /C Op Amp Cook- 
book. 
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Left: this program was written for the 
VZ300 computer but should work 
with little alteration on almost any 
computer running BASIC. The 
program runs each time return is 
pressed, so that you can enter new 
values.- 


Below: these sample screen printouts 
show the results for six common op 
amps for various circuit conditions. 
The program calculates both the 
equivalent input noise (in microvolts) 
and the noise performance (in dB). 


SAMPLE SC 


SOURCE RESISTANCE 
INPUT RESISTANCE 
NOISE BANDWIDTH ЕН2 


МЕ5534 
RCA4558 


лон or с 


SOURCE RESISTANCE 


INPUT RESISTANCE 


NOISE BANDWIDTH KHZ 


NESS34 
КС4558 


TDR юе 


SOURCE RESISTANCE 


INPUT RESISTANCE 


NOISE BANDWIDTH KHZ 


NESE34 .93 


lo نا‎ В bs le bo 
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QTH LOCATORS 


ON YOUR -— 


By Greg Baker 


The LOCATOR program is a dual purpose program com- 
bining a QTH Locator program and a Great Circle program. 
The program demands as input either (a) the QTH Locator, or 
(b) the latitude and longitude of the target station. 

If the QTH Locator is provided as an input, the program 
calculates latitude and longitude of the centre of the locator 
square then the great circle bearing and path distances. If the 
latitude and longitude of the target station are input, the 
program calculates the QTH Locator square then the great 
circle bearings and path distances. 

The program has been written for and tested on an unex- 
panded Dick Smith VZ-200 computer. The entire program is 
written in BASIC and should be adaptable to most BASIC 
versions. 

QTH Locators 

QTH Locators are an alternative to the use of latitude and 
longitude for specifying the location of amateur radio stations 
around the world. For this purpose, the earth's surface is first 
divided into 18 x 18 — 324 fields, each 20 degrees wide in 
longitude and 10 degrees wide in latitude. 

Each of these fields is then divided into 10 x 10 = 100 
squares, each 2 degrees wide in longitude and 1 degree wide 
in latitude. These squares are further sub-divided into 24 x 24 
= 576 sub-squares of 5 minutes longitude by 2.5 minutes 
latitude. Figure 1 shows how these fields, squares and sub- 
squares are labeled. 

From these labels, a six-character ОТН Locator is formed. 
Note that the two character field, square and sub-square 
labels are longitude first, latitude second, and are labeled 
consecutively from west to east for longitude апа south to 
north for latitude. 

The full six character locator has the form {11241425152 
where f1f2 is the alpha field locator, 4142 is the numeric 
square locator, and s1s2 is the alpha sub-square locator. For 
example, the author's QTH is at 35?24.4' South latitude by 
149°57.3' East longitude, which corresponds to а ОТН Loca- 
tor of ОҒ44ХО. 

It is not necessary to always use the six character QTH 
Locator. If a coarser grid with less accuracy is satisfactory, 
the first four character's can be used. For less accuracy again, 
use just the first two characters. Further details of the QTH 
Locator system can be found in Tony Gilbert's ‘Traffic’ col- 
umn, ARA Vol 7, No 8, Page 5. 

Great Circle Bearings And Distances 
Great Circle bearings are the true bearings for beam aim- 
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DECS: NINS» SECS- "^s 
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қане? BESS, MINS» SECS- ЕГИ 
ж 78-65. 9.- 


кетте: 7% » ss a ` s 

; тет AGAIN E х 
ing. Due to the curvature of the earth, beangs obtained from 
standard (mercator projection) maps are not accuracte over 
more than a few degrees. Two bearings 180° apart are usual- 
ly given — the short path bearing and the long path bearing. 
Similarly, there are two Great Circle distances — that for the 
short path and that for the long path. 

For more details on Great Circle bearings, see articles in 
ARA Vol 6, No 9, and ARA Vol 7, Мо 2, both available from 
ARA Reprints (Back Issues Department). 

Flowchart and Algorithms 

Unlike some other locator programs, the main calculations 

used here are neat and compact. The program incorporates 
„extensive error checking, which is good for the VZ-200 but 
“may not work on other systems. 

Because the calculations are complex, great care should 
be taken to type them is correctly. Statements to be particu- 
larly careful with are those in lines 390, 400, 510 and 520. 

The program flowchart is shown in Figure 2. 
Originating Station 

The program as it is written incorporates the latitude and 
longitude of Mount Ainslie, Canberra, as the location of the 
station from which the bearings are calculated. To function 
correctly from any other location, latitude and longitude for 
that QTH need to be inserted at lines 100 and 110 
respectively. 

Minutes of arc should be divided by 60 and added to the 
degrees. Seconds of arc should be divided by 3600 and 
added to the degree to give a decimalised latitude and longi- 
tude. Then the latitude and longitude should be givea sign — 
positive for north latitudes and east longitude; negative for 
south latitudes and west longitudes. 
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Fig. 1 — How the ОТН Locator 
system is calculated. 


EXAMPLE: /5°28N 29° 13'W 
HAS ITH LOCATOR  HESSJIL 
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For example, a station at 33° 55 South Бу 151210” East 
has а decimalised latitude of -33 + 55/60 = -33.91667 and 
longitude of +151 + 10/60 = +151.16667. 

Alternatively, because the program allows the origin to be 
changed while it is running — for use away from the normal 
ОТН for example — the user could type in their own QTH 
every time the program is run, although it would be easier to 
make the change permanent. Final output prints a new origin 
reminder message if this option has been exercised. 
Using The Program 

On running the program, the user is asked whether s/he 
wants to alter the latitude and longitude of their station. Enter 
'Y' to choose this option or any other character to bypass it. 
If 'Y' is selected, you will be asked to enter the new decima- 
lised latitude and longitude of origin. 

If а valid latitude and longitude is entered, the program 
proceeds. Otherwise an error message is displayed for a 
short period and the user is requested to re-enter the origin 
coordinates. 

Next, the program requests the target QTH name, fol- 
lowed by the option to enter the QTH Locator or the latitude 
and longitude of the location. The target name is truncated to 
22 characters after entry and further truncated to nine char- 
acters if the new origin option is chosen to allow room on the 
printout for the new origin reminder message. 

If the user chooses to enter a QTH Locator, a valid two, 
four or six character locator must be entered before the 
program will proceed to the Great Circle calculations which 
will use the latitude and longitude of the locator field, square 
or sub-square centre as the target location. 

Similarly latitude and longitude, if entered, must be valid 
before the program will proceed. 

Once great circle bearings and distances are calculated, 
the program prints results and asks the user to enter another 
target. 

A few typical outputs are shown in photographs accompa- 
nying this article. 

Warnings 

The great circle section of the program produces errors if 
the target is within 5O kilometres of the origin station (when it 
wouldn't be usual to use a great circle program anyway), or if 
the target is close to either the north or south pole (although, 
again, it wouldn't be usual to use a great circle program to 
point your beam due north or south anyway). 

Note that ARA Vol 9, No 4, has an article on short range, 
beam headings for VHF апа UHF enthusiasts. 

Test Data 

Table 1 shows program output data for the origin station 
located at 35°16 South, 149? East as incorporated in pro- 
gram statements at lines 100 and 110. This test data shold 
be used to check the program before the data in lines 100 
and 110 is changed for your QTH. 

Copies of the program for VZ-200 can be obtained on 
cassette from the author for $7:00 post-paid. Write to Greg 
Baker, PO Box 93, Braidwood, NSW 2622. Comments and 
suggestions (with an SASE for reply) can be sent to the same 
address. 

Debugged disk copies of the program modified for Com- 
modore VIC-20, C-64 or C-128 can be obtained by 
sending $ 10 or a blank formatted disk and $5 (includes post- 
age) to High-Tech Media, 4 Renshaw St, Doncaster East 
3109 


Diagram 2. PlcwcLart 
10 Start 
4 
120 Alter Crigin? — Yes —e 1030 Enter new origin S$] 


Enter target — Yea ——— lat/long valid? — No 
name 


170 س 
\ 
Enter target —— Yes —=1030 Enter lat/long =‏ 200 
ert‏ 


240 Enter STH Уа1142--------- No 


Locator 
yes 
locator Valid? —=No 450 Form CTH 
lis : Locator 
36C Calculate lat/ 
long 
і ; 
860 Frint lat/long, 
Llocator 


590 Calculate Bearinge, 
Distances 


920 Frint bearings, 
distancee 


Yes —— 1000 another target? — No 


1270 кла 

Target: QTH Locator: Short Path: Short Path: 
Name True Bearing Distance 

` Latitude Longitude 

ds Buffalo FNO2MU 63°26' 15826 km 
42°52'N 78°55'W 

2. Hong Kong OL72CF 324°40' 7374 
22°15'N 114°15'Е 

3: Falklands GDO8FL 162°37' 9963 
51°30'S 59°30'W 

4. Auckland RF73JB 102°07' 2301 
36°55'S 174°47'5 


PROGRAM LISTING FOR VZ-200 
0010 REM PROGRAM "LOCATOR" 
0020 REM GREG BAKER, BRAIDWOOD, 2622 
0030 DIM C(6),CB(3),CM(3),CT(3),L(2,3),M(6),.N$(2),S(2), 
T(2.2),TG(2) t 
0035 DIM F$(2),G$(2),H96(2) 
0040 DATA 65,82,10,48,57,1,65,88,0.041667 
0045 DATA “NORTH”, "EAST", SOUTH", WEST" 
0047 W$=""' 
0050 FOR 1=1 TO 3 
0060 READ CB(I),CT(I), CM(I) 
0070 NEXT I 
0072 FOR 1=1 ТО 2 
0074 READ F$/l),G$%(l) 
0076 NEXT I 
0080 REM ORIGIN STATION LAT/LONG 
0090 REM INSERT YOUR OWN QTH HERE 
0100 T(1,1)=-35.2667 
0110 Т(2,1)- 149.1667 
0120 CLS 
0122 PRINT'"ENTER 'Y' TO ALTER ORIGIN” 
0130 IF Ү$<>”Ү” THEN 170 
0140 PRINTQ192,"NEW ORIGIN LAT/LONG" 
0145 C$ 2'' ЖМЕУУ ORIGIN» ' 
0150 K=1 


INPUT Y$ 


———————— — ——-——-—- Éa 
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SEHEIRS 2115 5 25 н 
.D3$T&W"CE 7359 - NI 


_ BEARING 145 э ze я. 7 


0160 GOSUB 1030 ° 
0170 CLS у 

0175 PRINT"TARGET NAME” ;INPUT TS 

0180 Т5-1ЕҒТ%(7%,22) 

0190 FL-0 

0200 PRINTG64," ENTER: '1' FOR TARGET ОТН 
LOCATOR’ 

0210 INPUT" '2: FOR TARGET LAT/LONG"';Y 
0220 it Y=2 THEN 420 

0230 IF Y=1 THEN 240 

0235 PRINT@ 152,” ":GOTO 200 

0240 PRINT& 192, 'LOCATOR"';:INPUT Q$ 
0250 FL- 1 

0260 X=LEN(Q$) 

0270 IF X72 OR X=4 OR X=6 THEN 290 
0280 PRINTQ201,'" ':GOTO 240 

0290 FOR I- 1 TO 6 

0300 Cil] 20: NEXT | 

0310 FOR J= 1 TO X 

0320 C(J) = ASC(MIDS(OS, J, 1)) 

0330 JJ-INT((J 4 1)/2) 

0340 REM TEST VALIDITY OF LOCATOR 
0350 IF C(J)< CB(JJ) OR C(JJ» CT(JJ) THEN 280 
0360 C(Jj = C(J- CB(JJ) 

0370 NEXT J 

0380 REM CALCULATE LATITUDE /LONGITUDE 
0390T(1,2)=- 

90-- C(2)k 10+ C(4) +C(6)/24+CM(X/2)/2 
0400 T(2,2)=- 

180+ C(1)% 20+ C(3)k 2 +C(5)/ 12 +CM(X/2) 
0401 FOR I=1 TO 2 

0402 IF T(I,2)<O THEN Н%()-2 ELSE H%(I) = 1 
0403 H%(I)=1 

0404 T - ABS(T(L2)) 

0405 LII, 1) - INT(T) 

0406 L(I,21 -(T-Ltl, 1) 60 

0407 L(t,2) =INT(L(I.3}) 

0408 L(1,3) 2 INT((L(I,3)-L(I.2)) 60 + 0.5) 

0409 NEXT | 

0410 GOTO 585 

0420 PRINT& 192," TARGET LAT/LONG” 

0430 K=2 0440 GOSUB 1030 

0450 REM FORM TARGET LOCATOR 


4 st $. 


0460 FOR Ј= 1 ТО 2 

0470 TG(J)=T(J,2)+ 90%J 

0490 IF TG(J)=180%J THEN TG(J)= TG(Jj-0.0001 
0500 FOR K=3 TO 7 STEP 2 

0510 M(K-J) - INT(TG(U)/(JX CM(K- 1)/2))) 
0520 TG(J)=TG(J)-M(K-J) J CM(IK- 1)/2) 
0530 NEXT K 

0540 NEXT J 

0550 Q$=""" 

0560 FOR I- 1 TO 6 

0570 Q$=Q$ + CHRSIMII) + CB(INT((I+ 1)/2)) 
0580 NEXT I 

0585 GOSUB 860 

0590 REM CALCULATE BEARING AND DISTANCE 
0600 P=T(2, 1)-T(2,2) 

0610 PS=1 

0620 IF P<O THEN Р5-0 

0630 P= ABS(P) 

0640 РМ-0 

0650 IF P>180 THEN PM=1 

0660 E=57.29578 

0670 PI=3 141592654 

0680 P=P/E 

0690 PA=(90-T(1,1))/E 

0700 PB=(90-T(1,2))/E 

0710 Z2 - COS(Pk SIN(PA) ж SIN(PB) + COS(P A) ж COSIPB) 
0720 GOSUB 1250 

0730 AB=AC 

0740 SK=INT(6366.707*AB+0.5) 

0750 LK=40000-SK 

0760 ZZ - (COS(PB)- 

COSiPA) ж COS(AB})/(SIN(PA) X SIN(AB)) 
0770 GOSUB 1250 

0780 A- ACXE 

0790 A=ABS(360x(PS-PM)?-A) 

0800 A1=INT(A) 

0810 A2=INT((A-A 1) ж60+0.5) 

0820 B=180+A 

0830 IF B> =360 THEN B=B-360 

0840 Bi =INT(Bj 

0850 B2 =INT((B-B 1) xk 6O + 0.5) 

0855 GOTO 920 

0860 REM PRINT RESULTS 
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0870 CLS 

0880 PRINT’ ‘TARGET: “:Т% 

0885 IF LEN(C$)>0 THEN PRINT@17,C$ 

08 90 PRINTG64,' ТАТ: 
EIB SECA МЕЗ) sS 7 s 

0895 PRINT@86,F$(H%(1)) 

O900PRINT 

$96, LONG: ;L(2, 1; D ;L(2,2); M” ;L(2,3) "S "*; 
0905 PRINT@118,G$(H%(2)) 

0910 PRINT'"LOCATOR ”,Q$ 

0915 RETURN 

0920 PRINTQ224,' SHORT PATH: 

BEARING ;A1;"7D';A2; "M" 

0930 PRINT” DISTANCE ;SK;" KMS" : 
0940 PRINT'"LONG PATH: BEARING ;B1;"D';B2;'M" 
0950 PRINT” DISTANCE ДК; KMS" 

0960 IF FL=0 THEN 1000 

0970 PRINT'"LAT,LONG, BEARINGS AND DISTANCES 
ONLY” 

0980 PRINT’ APPROXIMATE BECAUSE LAT AND 
LONG" 

0990 PRINT'"CALCULATED FROM LOCATOR" 

1000 PRINTQ480O," ENTER 'Y' FOR ANOTHER 
ТАНСЕТ”;ІМРОТ Y$ 

1010 IF Y$—"'Y'" THEN 170 

1020 GOTO 1270 

1030 REM INPUT LATITUDE/LONGITUDE 

1035 5(1)-0: 5(2)-б 

1040 РНІМТ9224, LATITUDE? DEGS" ';:INPUT L(1,1) 
1041 INPUT” MINS'';L(1,2) 

1042 ІМРОТ” SECS';L(1,3) 

1043 INPUT.’ N/S ";М%(1) 

1050 IF М%(1)<>”М” THEN 1070 

1060 S(1)7 1: GOTO 1080 


= abu 


1070 IF М%(1)- "S" THEN S(1)=-1 

1080 INPUT"LONGITUDE? DEGS" ';L(2,1) 
1081 INPUT” MINS” 112,2) 

1082 INPUT” 6ЕС5” (2,3) 

1083 INPUT” E/W “;М%(2) 

1090 IF N$(2) <> "E" THEN 1110 

1100 S(2)=1: GOTO 1120 

1110 IF N$(2)=""W"" THEN S(2)=-1 

1120 FOR 1= 1 TO 2 

1130 IF 5(1) 2 O THEN 1160 

1132 Н%(1) = 1 | 

1134 IF 5(1) <0 THEN H% (I) = 2 

1140 T=90+ (I- 1)* 90 

1150 IF L(I,1)2 =0 AND L(I,1) c - T THEN 1180 
1160 PRINT ERROR: LL, 1); D" ;L(L2); "M ;L(,3);""S 
“INS (I) 

1170 PRINT "TRY AGAIN" 

1172 FOR V=1 TO 1500 

1174 NEXT V 

1175 PRINT@224,W$ 

1176 FOR V=1 TO 7: 

1177 PRINT W$ 

1178 NEXT V 

1179 GOTO 1030 

1180 FOR J=2 TO 3 

1190 IF L(I,J) O ORL(I,J)2- 60 THEN 1160 
1200 NEXT J 

1210 T(LK) =Lil, 1) +L(1,2)/60 +L(1,3)/3600 
1220 T(I,K) =Т(1,К)-ж5(1) 

1230 NEXT I 

1240 RETURN 

1250 AC—-ATNI(ZZ/SQR(1-ZZ*Z2Z)) +РІ/2 
1260 RETURN 

1270 ЕМО 
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Towards а VZ-Epson printer 


раїсһ 


Lorry Taylor 


Port 1 


Fed up with your clackerty old printer and long for an upgrade to 
one of the popular Epson or Epson-type dot matrix printers? 
Compatibility with the VZ has always been a problem - until now. 


FED UP with your clackerty GP-100, and its less than per- 
fect print quality? Do you long to upgrade, but know that 
whatever you choose, it won't be totally friendly towards your 
VZ? 

Are you the owner of an Epson-type printer, but suffer frus- 
tration, as I did, at its lack of compatability? If so, then take 
heart, there is hope. The answer is a printer patch, that is, 
a program specifically written to take the place of the exist- 
ing ROM routines. In this case, the aim is to make the VZ 
fully compatible with Epson-type printers. Recently, after- 
many hours spent reading and experimenting, I succeeded 
in producing just such a program. 

Having first decided to take the plunge and purchase a VZ 
computer, I developed a very great need, some short time 
later, to be able to obtain a printout of my programming ef- 
forts. On close examination of available finances, I was left 
with a choice between the Seikosha GP-100, a slow, noisy 
machine featuring an unattractive print style, and the BMC 
BX-80, a noticeably quieter, faster printer, possessing sever- 
al attractive fonts. 

Although a seemingly easy decision, I was immediately 
faced with a dilemma. The former, whilst initially unattrac- 
tive, especially so to anyone with sensitive hearing, had two 
very desirable features: namely, the ability to print the VZ’s 
inverse and graphics characters, in addition to providing, 
via the COPY command, a dump of the HI-RES screen. These 
two factors very nearly persuaded me to choose the GP-100, 
but, after much deliberation, I opted for the superior print 
quality of the BX-80. In so-doing, I resigned myself to hav- 
ing to go without the former's obvious advantages. 

No one had at this stage even remotely hinted that I could 
have the best of both worlds by means of a software patch. 
Hindered by a lack of information and minimal understand- 
ing of computer and printer operations, I perservered with 
the rather primitive approach of removing all inverse and 
graphics characters from programs before doing a printout. 


A star 


Desperate to overcome this huge waste of time, I first began 
to deal with the problem of printing graphics characters. I 
realised that my printer was capable of dot graphicsand that 
it should be able, whilst in this mode, to reproduce the shapes 
I desired. My early efforts, however, ended in frustration as 
the VZ steadfastly refused to interpret my data correctly. Only 
when I discovered that I could send the data directly out the 
ports, thus bypassing the VZ's printer driver routine, did I 
achieve any success. 

Listing 1 gives an example of how this was accomplished. 
By referring to the table below, you may change the graph- 
ics block data in the listing to enable any of the other graph- 
ics charactrs to be printed. Later it will become clearer how 
the data to print each block was calculated. 
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GRAPHIC BLOCK DATA 


HEX IDECIMAL 


DECIMAL 


128 
1297 
150 
151 
152 
155 
154 
1355 
156 
157 
158 
159 
140 
141 
142 
145 


Being an avid user of Steve Olney's Extended Basic, I used 
my new-found knowledge to write an assembly routine, 
which linked into the listing routine of his prograrn. It sim- 
ply checked for graphics and inverse characters. Graphics 
characters were printed and inverse ones changed to non- 
inverse. Useful, but not totally satisfactory. On the way I had 
independently developed my own table of data (above), to 
print the graphics blocks, only to later discover that there 
exists in the VZ's ROM a set of data for graphics characters 
and another for inverse. 

The graphics table occupies addresses from 02AFH to 
02CEH, whilst the inverse data commences at 3B94H and 
ends at 3CD3H. The graphics shapes are stored in two-byte 
form and the inverse characters in five-byte blocks, Their ex- 
istence makes it a simple enough matter to expand on the 
program in Listing 1 and print the graphics blocks using the 
ROM data instead of our own, as in Listing 2. The same may 
be done with the inverse characters and Listing 3shows how 
this is accomplished. Unfortunately, you will notice that the 
resultant characters, when printed, are in fact upside down. 
To understand why this occurs, it is necessary to offer a brief 
explanation of the differences between the code values used 
to control firing of the pins in the printheads of Epson-type 
printers, and those of the GP-100 family. 
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The Epson-type printer 


Printers of the Epson-type have eight addressable pins, while 
the GP-100 has the equivalent of seven pins only. In addi- 
tion, the value 1, which fires the bottom pin on an Epson 
printer, actually triggers the top pin on the GP-100. The dia- 
gram below illustrates the differences. 


COMPARISON ОҒ 
ZEIN CODE č VALLES 


GP-100 EPSON 
1 m 128 [| 
2 n 64 | "m 
4 pu 52% ш 
в “ | 16 m 
15 | m 8 DL. 

32 | = 4 m | 
64 HN 2 va 
| it 


To calculate the code which is required to produce a par- 
ticular dot pattern we simply have to add up the values of 
the corresponding pins. The representation of the graphics 
block, CHR$3(137), can be used to demonstrate how this is 
done. You may recall that the data values used in Listing 1 
to reproduce this particular character were 240 and 15. No- 
tice how these codes correspond to the totals at the base of 
each column іп the diagram. If we examine the first column 
on the left, we can see that only the top four pins have been 
fired. By totalling vertically the values assigned to those pins, 
we arrive at the sum of 240. The same procedure is used to 
determine the Epson compatible code foreach of the remain- 
ing columns. 
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15 19 


It can be done 


Nevertheless, data which has been prepared primarily for 
the GP-100, as is the case with the ROM tables, will produce 
inverted images if sent to an Epson printer. It is necessary, 
threfore, to convert the data before it can be used. Adding 
Listing 4 to Listing 3 will produce the desired result. I 
wouldn't however, advise any of you to hold your breath 
whilst waiting for the data to be printed. Hence, I have 
provided Listing 5, an assembler program, which effects the 
same result, only much more swiftly. 

Having now managed to make the characters appear in 
their more conventional form, a closer examination ofthem 
will reveal numerous inaccuracies. Some, such as the 3 and 
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5, are more noticeable than others, but no less than a dozen 
of the characters are flawed. After progressing so far, this 
is a disappointing development but one which will prove, 
later, to be not insurmountable. In the interim, we need to 
explore further how we might utilise our somewhat imper- 
fect data. 

Fortunately, the designers of the ROM foresaw the possi- 
bility that potential users may want to use a different printer. 
As a result, a vector has been used to point to the location 
of the printer driver. All output to the printer is directed via 
a driver routine, which, among other things, checks for con- 
trol codes and keeps track of line feeds. In the VZ, a block 
of the communications area of RAM from 7825H to 782CH 
has been set aside for printer operations, allowing temporary 
storage of values such as the number of lines printed. Of 
greatest interest to us is the contents of 7826H-7827H. This 
is the start of the driver routine, and the cause of our 


problems, because it is geared to expect that owners of VZeds 


will be using GP-100 type printers. However, since the previ- 
ous address lies in RAM, it is possible to insert a pointer to 
our own driver routine at this location. Once accomplished, 
all future LPRINT and LLIST commands will be directed, 
ultimately, to our own printer routine. 

We have now proceeded part way to installing a valuable 
routine for owners of Epson-type printers, but we are still 
unable to make use of the COPY command. The primary ad- 
vantage of which is that it allows a dump of the HI-RES 
screen to be made to the printer. Implementing this very 
desirable feature will prove to be somewhat more 
challenging. 


LISTING 1 PRINT A SINGLE GRAPHICS BLOCK 
100 REM ##HHFHAAHHHH HAAR RRR RRA ARR RA EH 
101 REM # PUT PRINTER IN GRAPHICS MODE # 
102 REM ВввВНВВНННННВВВВННННННВНННННННВВВННИН 
110 _РРІМТСНРФ (27); CHR$ (75) ; 

120 FOR T=1 TO 2 

130 READ D:GOSUB 510 

140 NEXT Т 

200 REM "HH HARE A RAR RRR 
205 REM # READ EACH DATA VALUE IN TURN # 
210 REM # AND THEN PRINT IT FOUR TIMES # 
215 REM HHHHHHHHHHHHHHHHHHHHHHHHHHMEHEHHHHHHEHM 
220 FOR NZ=1 TO 2 

230 READ D 

240 GOSUB 510:GOSUB 510 

250 GOSUB 510:GOSUB 510 

400 NEXT NX 

410 LPRINT:END 

500 REM HHHHHHHHHHHHHHHHHHHHHHHHHHBHHHHHHH HEHE 
501 REM # OUTPUT TO PRINTER VIA THE PORTS 8 


502 REM sHHHHHHHHHHHHHHHHHHEHHHHEHEHHHHHEHHNuH Hd 
510 IF INP(0)<>254 THEN GOTOS10 

520 OUT 13,D:0UT 14,D 

550 RETURN 

540 REM BHHHHHHHHHHHHHHHHHHHHHHEHEHHHHHEHHUHHHM 
S45 REM * NUMBER OF BYTES TO BE PRINTED # 
SSO REM # IN LOW BYTE, HIGH BYTE FORM # 
555 REM Hutt it E HEHHEHHHEHHEHEHHHEHHEHHEHHHHHHMHMH 
550 DATA 8,0 

555 REM HH HH HHHHHHHHEHEHHEHHEHEHHHSHHEHHUHH BH 
570 REM # GRAPHIC BLOCK DATA m 
575 REM sSHHHHHHHHHHHHHHHHHHHHEHEHEHHHHHEHUNugE UH 


580 DATA 240,15 


LISTING 2 : PRINT THE ROM GRAPHICS BLOCKS 
100 
101 
102 
110 
120 
150 
140 
150 
151 
152 


REM #HRHHHHHHBHHHBHHHHHHHBHHBHBHBHBHHHHHHHH HHH HH 
REM # PUT PRINTER IN GRAPHICS MODE = 
REM RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRREH ЯН 
LPRINTCHRS (27) ; СНЕФ (75); 
FOR Т=1 TO 2 

READ D:GOSUB S10 
NEXT T 
REM HHHHHHEHHEHHHHHHEHNEHHHHEHHEHHHEHHHEHHEE Hu MH 
REM # LOCATION GRAPHICS TABLE O2CEH # 
REM вввнввнвИвИНВННВННВНВВНВННИНИННВИННИНЯВ 
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P 


160 M=687 
200 REM ###HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HH 
205 REM s READ DATA FOR GRAPHICS BLOCKS # 
210 REM # AND PRINT EACH VALUE 4 TIMES # 


215 REM #HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
220 FOR NZ=1 TO 32 

230 D=PEEK(M)-128 :M=M+1 

240 GOSUB 510:GOSUB 510 

250 GOSUB 510:GOSUB 510 

260 REM #ЯЯНЯНННЯННННЯННННННННННННННЯНННЯННЯН 
265 REM # THIS LINE SEPARATES CHARACTERS # 
270 REM # FROM EACH OTHER BY A DOT WIDTH # 
275 REM HHHHHHHHHHHHHHHHHHHHEHHHHEHHHHHHHHHHMHH 
280 IF N4/2 = INT(N4/2) THEN р=0 :GOSUB 510 
400 NEXT МУ 

410 LPRINT: END 

SOO REM #HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
SO1 REM # OUTPUT TO PRINTER VIA PORTS # 
502 REM HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
510 IF INP(0)<>254 THEN GOTOS10 

520 OUT 13,D:0UT 14,D 


550 RETURN 

540 REM HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
545 REM # NUMBER OF BYTES TO BE PRINTED # 
SSO REM # IN LOW BYTE, HIGH BYTE FORM # 


555 REM ##H#HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HH 
560 DATA 144,0 


LISTING 3 : PRINT THE ROM INVERSE CHARACTERS 
100 REM ###HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
101 REM # PUT PRINTER IN GRAPHICS MODE # 
102 REM ###HHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHH 
110 LPRINTCHRS (27) ;CHR$ (75) ; 

120 FOR T=1 TO 2 

130 READ D:GOSUB 510 

140 NEXT T 

150 REM ###HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHH 
151 REM # LOCATION OF INVERSE TABLE 3B94H s 
152 REM #HHHRHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHRH 
160 М-15252 

200 REM ##H#HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHH 
201 REM # NUMBER ОҒ INVERSE CHARACTERS # 
202 REM #Н#Н#Н#НННННННННННННЕННННЕННННЕННННЕННННННН 
210 FOR N%=1 TO 64 


220 D=255:GOSUB 510 
250 REM ###H HH HHH HH HH HHH HHH HH OH 
231 REM # NUMBER OF BYTES PER CHARACTER # 


252 REM HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
240 FOR R%=1 TO 5 


250 D=PEEK (M) : М=М+ 1 

559 REM HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
540 REM # PRINT ONE COLUMN 8 
541 REM HHHHHHHHHHHHHHHHHHHHHHHHEHHHHEHEHHHHE HUM 
350 GOSUB $10 

360 NEXT 

370 D=255:GOSUB 510 


400 NEXT NX 

410 LPRINT: END 

500 REM яяяНЯННЯННННННННННННННННННННННННЯННН 
501 REM # OUTPUT TO PRINTER VIA THE PORTS # 
502 REM HHUHHHHHHHHHHE HH HH HH HAH ЕЕЕ 
510 IF ІМР(0)<>254 THEN GOTOS10 

520 OUT 13,D:0UT 14,D 


S30 RETURN 

555 КЕМ ##HHHH HH HH HH HH HH FH OHH AHO 
540 REM # NUMBER OF BYTES TO BE PRINTED # 
SSO REM # IN LOW BYTE, HIGH BYTE FORM # 


SSS REM ## HHH AHHH HH HH HH HH HH 
560 DATA 192,1 


LISTING 4 : CONVERT THE DATA FOR THE ЕР5ОМ PRINTER 
260 REM #HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
261 REM # CHANGE CODE FROM GP-100 TO EPSON # 
262 REM HHHHHH HHH HHH HHH HH HH HHO OOOH 


270 IF D=189 OR D=255 THEN 320 
280 V=0:E=0 

290 FOR F%=7 TO О STEP -1 

300 P=2°F%: IF D<P THEN 320 

310 E=E+2*V: р=р-Р 

320 V=V+1 

550 NEXT:D=E 
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LISTING 5 : PRINT THE ROM INVERSE CHARACTERS. 
0001 ILLLLLLLLLLLLEZLELLLLII 
0002 ;# РОТ PRINTER IN # 
OOO3 ;# GRAPHICS MODE # 
0004 ILLLLLLZLLLLLELLLZLLLII 
0005 DEAR 27 

0006 CALL 3ABAH 

0007 ЕВ. A475 

0008 CALL 3ABAH 

0009 LD 4,192 

0010 CALL ЗАВАН 

0011 CD. “AS 

0012 CALL 3ABAH 


0015 ; HHHHHHHH HHH HH HH HH HHH 
0014 ;# LOCATION OF THE # 
0015 ;# INVERSE TABLE # 
0016 ;HHHHHHHHHHHHHHHHHHHMH 
0017 LD | HL,3B94H 

0018 ; #HHHHHHHHHHH HHH HHH HH 
0019 ;# NUMBER OF INVERSE# 


0020 ;s CHARACTERS # 
0021 ; H#HHHHHHHHHH HHH HHH HHH 
0022 LD  B,64 

0023 NEXT PUSH BC 

0024 LD  /A,285 

0025 CALL 3ABAH 


0026 ; HHHHHHHHHHH HHH HHH HHH 
0027 ;# NUMBER OF BYTES Яя 


0028 ;# PER CHARACTER # 
0029 ; HHHHHHHAHHHHHHH HHS HHH 
0030 LD B,S 

0031 PRNT LD A, (HL) 

0032 CALL CVRT 

0033 CALL ЗАВАН 

0034 INC HL 

0035 DINZ PRNT 

0036 LD А,255 

0037 CALL ЗАВАН 

0038 POP BC 

0039 DINZ NEXT 

0040 RET 

0041 ; H#HHHHHHHHH AHH HHH HHH 


0042 ;# CHANGE CODE FROM # 
0045 ;# GP-100 TO EPSON t 
0044 ; HHHHHHHHAA AHHH AHHH 
0045 CVRT PUSH BC 


0046 LD B,8 

0047 ROTA RR A 

0048 RL C 

0049 DJNZ ROTA 

0050 LD A.C 

0051 РОР BC 

0052 БЕТ A. 

— from page 30 


chromium to resist corrosion) and a solid "beta alumina' 
electrolyte separates anode and cathode. The cell is sealed 
and filled with argon. 

During discharge, sodium ions pass through the electrolyte 
from anode to cathode, forming sodium sulphide at the 
cathode, the reaction generating the current. Recharging is 
achieved as with other storage batteries, by passing a current 
through it in reverse. One problem, though. These cells will 
only deliver power when operated above 270 degrees Celsius. 
They have an operating temperature ceiling of 410 degrees C. 
They must be heated to ‘start up' and to maintain them within 
the operatingtemperature range, they have to befully charged 
and then atleast 8096 discharged each day. If unused for nine 
hours, temperature falls below the 270 degrees C. 

Sodium-sulphur cells exhibit a terminal voltage of around 
2 V and may last some five years or 6000 charge-discharge 
cycles, which betters the typical lead-acid battery life cycle. 
In addition, its terminal voltage remains constant until it 
reaches about 7096 of its discharge capacity before tapering 
off. 

Suggested application encompass commercial vehicles 
such as delivery vans and buses, and military submarines. 
Satellite applications are also suggested as sodiurn-sulphur 
cells are only 2096 of the weight of equivalent NiCa d batteries 
of the same Ah output. 4. ў 
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A VZ-Epson printer patch 
— the search continues rao 


Part 2 


IN THE PREVIOUS instalment, printing of the VZ's inverse 
and graphics characters had been made possible. At this 
point, the ideal enhancement to our printer patch would be 
to enable the VZ's COPY command to function correctly 
when matched with an EPSON type printer. This should be 
possible, but we must first examine why the usual means for 
intercepting BASIC key words, during programme execution, 
won't work in the case of the COPY command. 

The VZ's ROM owes much to that used in the earlier 
TRS-80 computers. The COPY routine, however, is one of 
a number of additions which greatly enhance the VZ's capa- 
bilities. As such, it contains none of the DOS exits, which 
are to be found in the older sections of the ROM. These ex- 
its, or "vectors", are calls to an area in the communications 
area of RAM, and provide the means by which some BASIC 
commands may be altered or redirected. Since the VZ DOS 
makes no use of these vectors, none have been provided in 
the newer sections of the ROM. My initial hopes dashed, I 
began to investigate the method used to integrate the DOS 
into the VZ's operating system. In doing so, I uncovered an 
alternative vector, one which would make it possible for us 
to notonly intercept the COPY command, but also open the 
door to further enhancements to the VZ's BASIC. 


How so? 


It is important to understand, initially, why this type of 
modification is possible. When we write a BASIC 
programme, we are creating what we hope will be a precise 
set of instructions. Unfortunately, before the computer can 
understand and respond to our commands, each instruction 
in turn has to be painstakingly translated or intrpreted. This 
is the reason for BASIC's slowness, and it can really only 
be effectively overcome by having the programme translat- 
ed or compiled prior to execution. Yet, because a BASIC 
programme is interpreted as it runs, it is possible that addi- 
tional commands may be added to the language, provided 
they are intercepted and executed prior to reaching the VZ's 
own interpreter. This is precisely what happens when a disk 
operating system is added. New commands enabling disk 
operations to be performed; supplementing the existing BAS- 
IC. In the case of the COPY command, we are seeking to 
redirect it to a routine compatible with EPSON type printers, 
and on completion, have it return asthough all had proceeded 
normally. 

As I undertook to produce this extension to the patch, I 
found myself venturing much further than I had originally 
intended. The project involved modifying the existing ROM 
routine, as well as enhancing the COPY command to pro- 
vide for a second screen dump routine of my own design. 
Furthermore, I allowed for a copy of the LO-RES screen 
without the usual linefeeds. I also sought to eliminate those 
unfortunate flaws in the inverse character data. Listing 1, 
which was kindly supplied by Bob Kitch, enables a closer 
examination of the inverse characters held in ROM, by dis- 
playing them on the HIRES screen. By relocating the ROM 
table to RAM at the top of memory the necessary modifica- 
tions to the data have been made possible. 
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AZ-ROM, 


INVERSE CHARACTER SHAPE TABLE 


ІНЕШЕРЕНІЛТКІ 
ОТЕ 


(note changes to underlined characters) 


The accompanying illustration allows a comparison to be 
made between the ROM characters, at top, and those in the 
shape table addressed by the printer patch. Incidentally, 
should you decide that you still don't like the look of the 
amended characters, it is possible, using the same approach, 
to either further refine them, or even custom design a com- 
pletely new set. 

Inspired at having overcome this obstacle, and because I 
have written a number of programs using an Extended BAS- 
IC, I wanted the routine to be able to list those commands, 
which would not normally be recognised. The fina] aim was 
to deal with the printer's unimpressive performance, sig- 
nalled by a dramatic decrease in speed, each time it had to 
print a graphics or inverse character. The solution I chose 
to minimise these delays was to feed the data into a section 
of RAM, which would act as a collection area or buffer, pri- 
or to printing. A discussion in detail of how each of these 
refinements was implemented would only serve to compli- 
cate what is otherwise a relatively straightforward procedure. 
I have elected, instead, to demonstrate how to inter cept and 
enhance an existing keyword on a smaller scale Dy using 
another of the VZ's commands. 


Boe з 


Enhanced CLS 


Tandy's Colour Computer has an enhanced CLS command 
which enables the user to clear the screen to any one of nine 
background colours. The syntax is CLSn, where n may be 
a number in the range 0-8. To illustrate how enhancements 
to the existing language can be accomplished, this command 
will be necessary to examine further how the VZ operates. 

When a BASIC program is RUN, control passes to a 
machine language ROM routine, the Execution Driver at 
1D5AH, which scans each line of the BASIC programme as 
it comes to it and begins to translate it. Part of the transla- 
tion process involves looking for tokens. These are values 
in the range 128-250 (80H-FAH) that take the place of BAS- 
IC reserved words e.g: CLS - 132 (84H). Once the word has 
been identified and checked for correct syntax, control is 
passed to the corresponding ROM routine before returning 
to continue the translation. 

On power-up, the address of the routine which examines 
each byte in a line of BASIC, is stored at 7804H. This is the 
vector hinted at earlier, and in a non-disk VZ it will normal- 
ly contain a pointer to the RST 10H routine at 1D78H. Be- 
cause this vector is in RAM it can be easily changed. This 
was done so that at a later stage the DOS could be included. 

At least three different versions of the VZ DOS could be 
included that I am aware of, and two of these display the 
same version number on power up. Consequently, the only 
fixed location common to all three versions is a jump table 
commencing at 4005H. This makes it difficult to refer to an 
actual address within the DOS, where command processing 
is carried out. However, since all processing must be chan- 
nelled via the above-mentioned vector, a peek at this address 
will uncover the whereabouts of the DOS interpreter. A close 
examination of this region of the DOS will reveal how the 
added disk commandsare interpreted and implemented. This 
information will enable us to introduce into the system an 
enhanced command of our own choosing. The trick is to en- 
sure that, as far a the VZ's interpreter is concerned, nothing 
unusual has happened. 

Theaccompanying assembly language programme in List- 
ing 2, with its associated comments, shows in greater detail 
how this is accomplished. If you do not have access to an 
Editor Assembler, Listing 3 is a BASIC version, which pokes 
the routine into memory. Having adjusted the top of memory 
pointer, the address at 7804H is stored and replaced by our 
own. The programme then locates the new routine at the top 
ofthe memory. Now each time a byte is to be examined dur- 
ing execution it must first pass through our checkpoint. Once 
the origin of the call is established, the routine looks for the 
CLS token, 132 (84H). 

Only when it has been located does the routine proceed 
to examine the next byte. This is checked to see if it lies in 
the range 0-9. Once it has passed this test, the clear screen 
routine is implemented, after first calculating the appropri- 
ate value, with which to fill the screen. You will notice that 
not only is it necessary to check for the new command, but 
also to provide the routine which implements it. In this case 
a simple block load to the screen has been used. Control is 
then returned to the ROM processing routine, which prepares 
to examine the byte following ournew command. So, as far 
as the VZ knows, everything is continuing normally. Tricky 
isn't it? 

The VZ will now respond to the CLSn command, when en- 
tered, either directly from the keyboard, or from within a pro- 
gram, with one exception. For some unexplained reason, 
during IF-THEN-ELSE processing the ROM accesses the byte 
examine routine at 1D78H directly, instead of via a RST 10H 
call. This means there is no efficient method for our 
programme to intercept the new command, when it is used 
in an IF-THEN-ELSE statement. The problem can best be 
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LISTING 


woqaoo................................ 
... DISPLAY INVERSE CHARACTER ... 
... SET IN КОМ ... 
... AS USED BY DOT MATRIX ... 
... PRINTER ... 
... R. В. KITCH 27/1/86 ... 


2222222222222222222222222252222222221 


“WHEN INVERSE CHARACTERS ARE SENT TO A DOT MATRIX PRINTER 
“THE PRINTER SHIFTS TO GRAPHICS MODE AND REQUIRES A ROUTINE 
'TO SUPPLY THE APPROPRIATE SHAPES TO THE HEAD. (NORMAL 
"CHARACTERS ARE HELD ІМ ІНЕ PRINTERS ROM) 

“IN THE У2 COMPUTER A TABLE OF SHAPES iS LOCATED AT 

'SB94H TO 3CD3 IN ROM. THERE ARE 64 CHARACTERS, EACH USING 
“5 BYTES TO DEFINE THEIR GRAPHIC SHAPE. THE SHAPES MAY BE 
“DECODED AND OUTPUT TO THE SCREEN AS IS DONE IN THIS 
“PROGRAM. NOTE THAT THERE ARE SOME ERRORS IN THE ROM. 

'THE,S BYTES DEFINE А 5 BY В DOT MATRIX WHICH IS THE SHAPE 
“ОЕ THE CHARACTER, WHICH INCIDENTALLY ARE NOT ORDERED 
“ACCORDING TO THE ASCII CODE. 

'THE FIRST BYTE DEFINES THE LEFT HAND EDGE OF THE CHARACTER- 
“WHICH IS THE FIRST PRINTED DURING A PASS OF THE PRINTER 
“HEAD. IN TANDY PRINTERS THE MSB IS THE LOWERMOST PIN OF THE 
“HEAD AND THE LSB IS THE UPPERMOST PIN. THE PINS ON EPSON 
“PRINTER HEADS ARE ARRANGED IN THE OPPOSITE SENSE. THIS 
“REQUIRES THAT THE BITS IN EACH BYTE BE REVERSED. 


'as......................................................... 


DIM MKZ(7) :'***VECTOR OF BIT MASK VALUES - POWERS OF 2 
DIM BTZ(7) 


:/7***VECTOR OF DECODED BITS FROM ROM VALUE. 


'***FILL MASK VECTOR WITH POWERS OF 2 FOR DECODING. 
FOR 1420 TO 7 :MK%(1%)=271% :NEXT 1% 


‘eee INITIALIZE PARAMETERS ~ MAY BE CHANGED TO VARY SCREEN. 
PO ***CHARACTER. COLOUR. (1-4) 
1 '#**BACKGROUND COLOUR. (1-4) 
: '***COLOUR SET. (0-1) 
3° *#eCOLUMN WIDTH BETWEEN CHARACTERS. 
:'**«ROW SPACING FOR CHARACTERS. 
$7 ***STARTING HORIZONTAL POSITION ON HI-RES SCREEN. 
‘eeaSTARTING VERTICAL POSITION ON HI-RES SCREEN. 
HM%=127 :'**««MAXIMUM HORIZONTAL POSITION. (0-127) 
"***SET UP MAIN LOOP TO STEP THROUGH ROM FROM 3B94H-3CD3. 
BK*-0 :' «е«ВҮТЕ COUNTER FOR EACH CHARACTER. 
HP HS 2 '**eSET HORIZONTAL POSITION TO START 
MODE(1) :COLOR,CS% 1'***SET HI-RES SCREEN AND COLOR SET. 
$m*215252 ; ***START OF SHAPE TABLE 
—Em%=15571 3° ***eEND OF SHAPE TABLE 
FOR AD%=SM% ТО ЕМУ 3‘ #@*ADDRESSES FOR SHAPE TABLE. 
DVZ=PEEK (Ар?) 2° ***DECIMAL VALUE READ FROM TABLE 


‘#*#eDECODE THE INDIVIDUAL BITS ОҒ DV% AND STORE IN BT7(). 
'***THE MASK VALUES IN MK%() ARE "ANDED" WITH THE VALUE. 
'***THE RESULT STORED IN BT%() IS THE "COLOUR" OF THE BIT. 
FOR 1: О TO 7 : '***PROCEED FROM LSB TO MSB. 
IF DVZ AND МК7(17) THEN BTX(CIX)-BCA ELSE BTA(tIZ)sCCA 
NEXT 17 


"** «CHECK THAT THERE IS ENOUGH ROOM TO PLOT CHARACTER. 
IF Вки=0 AND НМ/-НР/<4 THEN HPZzHS4Z :VPZ-VP4-SP4: ' «NEW ROW 
BK7Z=BK1Z+1 : жееімМСКЕМЕМТ BYTE COUNTER. 


`***OUTPUT BYTE TO SCREEN. 
FOR 1%20 TO 7 
COLOR ВТУ (1л) 
SET (НРУ, МРА+ 17) 
NEXT 1% 


179 #9СЕТ COLOUR ОҒ ВІТ. 
:С`+++РООТ ВІТ. 


` ***PREPARE FOR NEXT BYTE. 
HP%=HP%+1 : '#*e INCREMENT HORIZONTAL POSITION. 
IF Вк/ч5 THEN Вки=0 :HPZ4zHPA*CW. : '***NEW CHARACTER. 
NEXT Ар% 
GOTO 2000 :END 


“THIS SHORT LISTING САМ BE USED BY OWNERS OF THE PRINTER 
“PATCH TO CALCULATE THE START AND END LOCATIONS OF THE 
"REVISED INVERSE CHARACTER SHAPE TABLE IN THE COMPLETED 
“VERSION. BY SUBSTITUTING THE NEW VALUES FOR THOSE WHICH 
“APPEAR IN LINES 640 AND 650 OF LISTING 1, THE MODIFIED 
'CHARACTERS CAN BE DISPLAYED ON THE HIRES SCREEN. 


Е2222222222222222222212222222222222222222222452722127522227 


'8"*CALCULATE THE ТОР OF MEMORY 
TM=PEEK (30897) «256*PEEK (30898) 
IF 7М>527067 THEN TM=TM-65536 


'w*"ADD OFFSET TO TOP OF MEMORY TO LOCATE START OF TABLE 
SMZ=TM+666 3 °**#START OF SHAPE TABLE. 


'*"5ADD 64 CHARACTERS x 5 BYTES TO LOCATE END OF TABLE 
EMAZ-ZSMA-64«5-1 ;'***END OF SHAPE TABLE 


'"**PRINT START AND END ADDRESSES 
PRINT"START - Smzs";SM4 
PRINT"END = EMZZUIEMT 


overcome, by means of a minor change in syntax, when en- 
tering the programme line. Using the line, 


100 IF X=4 THEN CLS4 


should clear the screen to red, when X=4. 

What actually happens is that the screen clears normally, 
followed by a SYNTAX ERROR message, indicating the rou- 
tine at 1D78H has not recognised our enhanced com mand. > 
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LK O EE B1 22. 


0001 ; E OE HE OF E E FOE HÛ OF E ERROR 
0002 ;w ENHANCED CLS COMMAND ж 
0005 ;» BY LARRY TAYLOR 1986 # 
0004 j FR f HF f EF HEF O UF O o O OE E RE 
0005 ; 
000 ;THIS SECTION RELOCATES 
0007 ;THE PROGRAM TO THE TOP 
0008 ;OF AVAILABLE MEMORY. 
0009 ; 

0010 VCTR EQU 
0011 LO 
0012 о 
0015 LO 
0014 


7A28H 

SP , 7700H 

HL, (7881H) 
ВС,ЕМОР-МУСТ 
PUSH BC 

0015 XOR А 

0016 SBC HL,BC 

0017 LO (7BB1H) ,HL 
0018 PUSH HL 

0019 XOR A 

0020 LD BC,33H 

0021 SBC HL,BC 

0022 L0 (78AOH) , HL 
0025 РОР DE 

0024 ІМС DE 

0025 LD HL, (7804H) 
0026 LO (VCTR) ,HL 
0027 LD (7804H) ,DE 
0028 LO HL ,NVCT 

0029 PQP BC 

0030 LOIR 
0051 CALL 
0032 JP 


0052 
0054 
0055 
0056 î 
0057 NVCT EXX 

0038 HL, 1058H 
0039 DE 

0040 A 

0041 HL,DE 
0042 DE 

0045 

0044 NZ,1078H 
0045 HL 

0046 1D78H 
0047 NZ,CONT 
0048 HL 

0049 DE, (VCTR) 
0050 
0051 
0052 
0055 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0075 
0074 
0075 
0076 $ 

0077 ¡CLEAR SCREEN ROUTINE 
0078 | 
0079 
0080 
0081 
0082 
0083 
0084 
0085 HL 
0086 
0087 


;SET VCTR AS 7A28H 

¡LOAD STACK POINTER 

; GET THE ТОР OF MEMORY 

; GET LENGTH OF PROGRAM 

; SAVE PROGRAM LENGTH 

¡RESET ALL FLAGS 

$; TAKE LENGTH FROM TOP OF MEMORY 
53 LOAD NEW TOP OF MEMORY 

¡SAVE NEW TOP OF MEMORY 

; RESET ALL FLAGS 

; RESERVE 50 BYTES STRING SPACE 
3; TAKE SPACE FROM TOP OF MEMORY 
$5LOAD START OF STRING SPACE 
;RETRIEVE TOP OF MEMORY 

; INCREASE BY ONE 

; GET CURRENT RST10H VECTOR 

; STORE ІТ IN 7A28H 

;LOAD NEW VECTOR 

; GET START OF PROGRAM TO MOVE 
; RETRIEVE PROGRAM LENGTH 

¡MOVE TO NEW LOCATION 

;DO A NEW 

320МР TO READY MESSAGE 


1B4DH 
1A19H 


3 
; START OF THE PROCESSING 
; ROUTINE FOR NEW COMMAND. 


;SAVE ALL REGISTERS 

;CHECK TO 

;SEE IF THE 

; RETURN 

; ADDRESS 

;1S 1058H 

;RESTORE ALL REGISTERS 

;1F NOT GO TO NORMAL PROCESSING 
;SAVE STRING ADDRESS 

;GET NEXT VALUE FROM STRING 
;IF NOT ZERO THEN CONTINUE 
;ELSE RESTORE STRING ADDRESS 
;RETRIEVE ORIGINAL VECTOR 
;AND JUMP 

;TO IT 

;CHECK FOR CLS TOKEN 

; IF NOT FOUND RETURN TO CALLER 
;MOVE TO NEXT VALUE IN STRING 
1GET NEXT VALUE AFTER CLS TOKEN 
;REDUCE ІТ TO RANGE 0-8 

; IF ZERO THEN EXECUTE COMMAND 
;LOAD B REG WITH UPPER LIMIT 
$ CHECK IF A=B 

IF YES THEN EXECUTE COMMAND 
¡REDUCE B AND CONTINUE CHECK 
INO MATCH SO RETURN TO CALLER 
;RETRIEVE OLD STRING ADDRESS 
;RETRIEVE OLD RETURN ADDRESS 
;LOAD NEW RETURN ADDRESS 
¡SAVE NEW RETURN ADDRESS 
;MOVE TO NEXT VALUE IN STRING 
ISAVE CURRENT STRING ADDRESS 
;MULTIPLY CLS 

;VALUE BY 16 TO 

$ CALCULATE THE 

$ COLOUR OFFSET 

;IF RESULT NOT ZERO THEN SKIP 
;1F ZERO INCREASE TO ONE 


SKIP ADD 3ADD 127 TO GET GRAPHICS BLOCK 


HL ,7000H 
(7820H) ,HL 
DE,7001H 
BC,OLFFH 
(HL) ,A 


3LOAD START OF SCREEN ADDRESS 
¿SET CURSOR POSITION 

3LOAD START OF SCREEN PLUS ONE 
I NUMBER OF BYTES TO MOVE 

¿LOAD GRAPHICS BLOCK INTO HL 
300 A BLOCK FILL OF THE SCREEN 
sRETRIEVE STRING ADDRESS 
RETURN TO 101ЕН TO CONTINUE 


ENDP DEFB O JEND OF PROGRAM MARKER 


To have the command function properly, insert a colon be- 
tween the THEN and the new command as below, 
100 IF X« 4 THEN:CLS4 


Now, when X =4 the THEN part of the statement will be ex- 


ecuted, including, as is usual, any additional commands in. 


the remainder of the line. However, once the colon is 
reached, the BASIC ROM returns to its usual processing, via 
the RST 10H routine, and the CLS4 command is then inter- 
‘preted on its own and not as part of the IF-THEN statement. 
This is the same solution suggested in the VZ-DOS manual, 
when using disk commands, which are affected in exactly 
the same way. 

This is essentially the approach I have used to produce a 


3.35 


LISTING 5 


100 КЕМ 
110 КЕМ 


120 КЕМ 


лЛУМАЛТТГА ТТТ 
w ENHANCED CLS COMMAND BY LARRY TAYLOR 1985 * 
ммИУММУЯАИМИИУМИЛЯЯЯАА АТАНЫ 
130 REM » CALCULATE THE NEW TOP OF MEMORY POINTER " 
140 REM HHFHHERHHRERHHHERT ARAN EERE NHR ETETE RHIKHEUAWHMMEM 
150 NB=79: ТМ= (PEEK (30897) +PEEK (30898) #256) -NB 

160 HB=INT(TM/256) :LB=TM-HB*256 

170 POKE30897,L8:POKE30898,HB 

180 REM WAUMHHUMMHENWHSMHNHEWEHUEEERNENNMNEHZMHNHNHAHHEANHIE HANMHMOHHOMEN 
190 REM и RESET THE BASIC STACK POINTER М 
200 REM MMHNHHHHEHMHHANMMNHEHVEENSMNENENEEAHASHUHEMMOWHNMNE HNAHSWVAHAHNKM 
210 CLEARSO "Š 

220 REM MMNRENHHHKVHEVHHMMHHNNERHVNNNEARHMRNHEASEUEEGHMNHE HERR 
230 REM w LOCATION OF SET UP PROGRAM ы 
240 REM WMNHEHEHHHHHHAMHWHNHHAMHERHAaHWEARENSVERHWHNMERUHHVAT АА 
250 EB=31274 

260 EHxINT((EB*1)/256) 1:EL*EB*1-EH*256 

270 REM WNWHHHNNHHERNWEHEMHNENHEKVEMHHNEHSUHSEESHEHISHENENHHNMMMNN 
280 REM w (ОАО USER EXECUTION PROGRAM POINTER * 
290 REM HNO IEE E O OE O O OE OE OF HÛ HE AHERN ERNE RRR RARER AR HR EEEE] 
300 POKE30862,EL:POKE30863,EH 

310 REM MIE IN ON OE OEE OF O EE OF OF HEE E OE OE HD OF OE oF O EOF HÛ OF OE Û OF OF OE E E O OOO OF OE OE OEE Û UE OE EEE EEES 
320 REM w LOAD 23 BYTE SET UP PROGRAM * 
330 REM WNHEHEWHHHHHHNWHNHMHNHNHEAHESEHVAVKRHEMRSHEHMERHER THER 
340 FOR T-1TO23 

350 READD 
560 POKEEB+T,D 
370 CS=CS+D 
380 NEXT 
390 REM MHRHHWHEHHEWHHEHIHMNHERHENHEHWVEWNEAHNSHHHMEHAHRNHN TETEE EEEE 
REM w GET NEW TOP OF MEMORY AND MOVE TO NEXT LOCATION * 
REM MHHNHAHMWEOWHVNEWHNHEMERNHENHKOHNEHHANNHANNNHESAUNHAEMARRHNHMHMME 
TM=PEEK (30897) +PEEK (30898) #254 

TF TM>32767THENTMSTM-65536 

REM 1 1 18 1 8 18 Û E OE OE Et н» 
REM w LOAD 79 BYTE ENHANCED CLS ROUTINE ы 
аи 
FOR Т=17079 

READD 

POKETM+T,D 

CS-CS*D 

NEXT 

REM HW OF INE EOE EE HF O O HAHN RHEE RANE RR RRR ENN 
REM w IF DATA CHECKSUM VERIFIES EXECUTE SET UP PROGRAM * 
REM WWNSHHRHEMNEHHTVEMMEMNNEHANHHNRRNNSEHYNHVENNHHSUEMERHNWHHEMHEN 
IFCSX»10958THENPRINT"- ERROR IN DATA ENTRY ~": ЕМО 

X2USR (0) 

REM HON OE O E O O иннин нинин ининин нияяиняниняянинининнинин 
REM # SET UP EXECUTION ROUTINE DATA IN DECIMAL FORM " 
REM HON O FO O O O нинин OF Û OO нинин OF OO Û Û O Û OF OE Û Û HÛ OF OREN EHH EE 
DATA 243,49,0,119,42,4,120,34,40,122,42,177,120,35,34,4,120 
DATA 205,77,27,195,25,26 

REM WHNNSMHNUSEVNHKVNENSHNSUNERHEHVNNEVAEMEANEHMHTNVREAHNHNNEWNNEWEHHRMNEATM 
REM % ENHANCED CLS ROUTINE DATA IN DECIMAL FORM * 
REM HMO OO HO OE HO O O инин ининин O O ERK Û O HEHE MERE н 
DATA 217,33,91,29,209,183,237,82,213,217,194,120,29,229,205 
DATA 120,29,32,7,225,237,91,40,122,213,201,254,132,32,245 
DATA 35,126,214,48,40,9,6,8,184,40,4,16,251,24,230,209,209 
DATA 17,30,29,213,35,229,135,135,135,135,32,1,50,198,127,33 
DATA O,112,34,32,120,17,1,112,1,255,1,119,237,176,225,201 


410 
420 


VZ-EPSON Printer Patch, which enables all the normal 
printer functions for Epson or Epson-compatible printers. 
As well as providing the ability to LLIST and LPRINT all in- 
verse and graphics characters, the COPY command is inter- 
cepted by the patch. As a result, its function has been 
enhanced to allow a proper dump of both the LO-RES and 
HI-RES screens. Corrections have been made to the flawed 
inverse character data, and when listing, the routine is capa- 
ble of recognising all the hidden commands, which may have 
been entered using an Extended BASIC. The patch relocates 
to the top of available RAM and can be used with Steve Ol- 
ney's EXTENDED BASIC, already resident in memory, ena- 
bling ready access to the functions of both. I hope that the 
techniques used here to produce what I have found to be an 
extremely useful utility will encourageothers to attempt fur- 
ther such developments. 

Perhaps additional enhancements to the VZ's BASIC could 
be explored. The Commodore 64 is served by anumber of 
enhanced BASICs, why not the VZ? Programs which make 
use of such BASICs require that the language be loaded be- 
fore they will function properly. However, this is little differ- 
ent to programs using disk commands needing th e DOS to 
be interpreted correctly. Certainly, the opportunity exists to 
endow the humble VZ with a brand new bag of tricks. 

For anyone interested, copies of the completed VZ-Epson 
Printer Patch, may be obtained on tape for 515, from: 

J.C.E. D'Alton 
VSOFTWAREZ 
39 Agnes St 
Toowong 


Qld 4066 +. 
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New life for qn old VZ 


Graeme Meager 


Since the introduction of the У220О computer in early 1983 


many users have been mystified by the fact that the 


computer did not support full level ІІ BASIC. This article 
describes a method of gaining 24 extra level ІІ BASIC 
commands for the VZ 2OO or 3OO without sacrificing any 


memory or software compatibility. 


RECENTLY a team of enthusiasts released a revamped 16K 
ROM (read only memory) for the VZ with the convenience 
of LEVEL II BASIC on power-up and with some technical 
knowledge. ехегу user can smarten up their computer. 

As many users may remember, the existing ROMs were 
a major cause of breakdowns and possibly there are still many 
old VZs put away in cupboards which can be brought back 
to life with these new ROMs. This particular occurence 
prompted one user to investigate the viability of producing 
‚ап EPROM to replace the original BASIC ROM. When it was 
discovered an EPROM was available that was pin compati- 
ble with the old 16K ROM. the task for VZ300 owners was 
made very simple. VZ200 owners should not dispair, with 
the addition of just two diodes and one resistor both 8K 
ROMs сап be replaced by this single 16K chip. 

Before entering into details of the hardware modifications. 
I will briefly describe the extra facilities the new ROM will 
provide and how they have been implemented. 


THE ADDITIONAL BASIC COMMANDS: 


TRON TROFF DELETE AUTO 

FIX: CINT ERROR X ERR 

POS ON DEFINT DEFSNG 
RANDOM MEM ON ERROR VARPTR 
DEFDBL RESUME FRE CDBL 

ERL STRINGS DEFSTR ON (GOTO) 


Inverse characters 


Owners of GP 100 and compatible printers will be familiar 
with the badly represented inverse character set: these er- 
rors have been corrected in the new ROM. For the owners 
of EPSON and compatible printers, a version of the EPROM 
with the modified control codes and inverse character tables 
is currently being compiled. 

The above BASIC commands have been integrated with 
the original command set. which as a major consideration, 
enables all existing software to run unimpeded in the new 
system. The new ROM provides all commands without those 
messy loader routines, machine code calls and it is DOS (disk 
operating system) compatible. 


The software 


Statement and command execution in the VZ is by interpre- 
tation. This means that a routine dedicated to the statement 
type or command is called to interpret each line and perform 
the necessary operations. This is a common method of sys- 
tem command execution and is used by many other BASIC 
systems. Within the BASIC ROM there is a table known as 
the RESERVE WORD LIST. This table contains all of the 
words reserved for use by the BASIC interpreter. 

When a line is read by the interpreter it scans this list and 
if the word (command) is present it will allocate a TOKEN 
value in the range 80 (HEX) to FB (HEX). This token will be 
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written into memory as the BASIC command. From here on 
the interpreter will act on these tokens and not the original 
word. Each of the new commands have their own token with 
the allocated range and will be acted on in the same way the 
existing commands are. At this stage it should be noted that 
the original LEVEL II BASIC did not support routines for 
commands such as COPY. COLOR. MODE. SOUND, СКОМ, 
CLOAD and VERIFY. These commands have used tokens 
originally set for other LEVEL II reserved words. The new 
VZ ROM actually supports more BASIC commands than the 
original LEVEL JI ROM in the TRS-80 and SYSTEM 80 (for 
non-disk systems). 

Once a value has been allocated. execution is passed to the 
VERB ADDRESS TABLES. Here the table is used to direct 
the interpreter to the routines specified bv each TOKEN. 
There are two VERB ADDRESS TABLES: the first is used 
for statements that begin with a — VERB — for example END. 
RANDOM! or PRINT. If the statement does not begin with 
a token, control goes to the assignment statement process- 
ing. The second table contains the addresses of verb routines 
which only occur on the right side of an equals sign or com- 
pliment the first verb — for example PEEK. FRE, SGN. 

The new commands have been implimented bv writing 
new values into the above tables, so the interpreter can be 
driected to the relevent processing routines. 

As mentioned earlier, a number of areas in the ROM had 
to be re-organised. For example. the token 9E in the VZ ROM 
is allocated to the word SOUND and not the word ERROR. 
as originallv written. Routines within the ROM had to be cor- 
rected so that when the interpreter was confronted with a 
format such as "ON ERROR GOSUB ... " it would recog- 
nise the line as correct syntax. 

Other commands and routines are under investigation. and 
as thev are proven compatible I understand thev will be 
released as an update to enhance the new ROM on a change- 
over basis at a minimal price to purchasers. Each of the 
EPROMS released carry a programmed serial number to 
identify their generation and is apparent in the start-up head- 
er which reads as follows: 

LASERLINK BASIC 
MER: 2 52130 
READY 


COLOUR 
BOARD 


COMPONENT LAYOUT FOR V2200 (5:2 


ШІП 


16129 
15174 


280 СРО 


MEMORY ВОААО 


do 


V2200 MOOIFIEO CIRCUIT 


280 CPU 


.. ROM1 
(NOT USEO) 


DATA BUS 00-07 > 


Тһе hardware 


Firstly. readers should be aware of the following points: 


(a) апу hardware modifications will void any warranty if 
current, 

(b) this project should only be attempted by someone with 
reasonable soldering and desolder skills, 

(c) to date, the modification has been carried out on VZ200s, 
both early and recent VZ300s (brown keyboard) and the 
LASER 200/310. 


À check of compatibility with the following details should 
be made before commencement. 

The case of the computer can be separated bv removing 
the six screws from the bottom half. Care should be taken 
not to snap any of the kevboard cables. The main circuit 
board must then be separated by removing the screws hold- 
ing itto the base. The wires to the piezo transducer will not 
have to be disconnected if they arelong enough to rotate the 
board to gain access to the solder side. 

The next step is to remove the RF shield by desoldering 
ihe lugs and braids attaching it to the board. For the VZ300, 
the diagram here should help locate the 28-pin ROM. The 
old ROM should be carefully desoldered and removed to be 
replaced by a DIL socket that is provide with the new 
EPROM. The unit can then be assembled and tested. 

For the VZ200, two 8K ROMs can be replaced with a sin- 
gle 16K ROM bv adding the necessary addressing circuitry 
and one extra memory address line. From the extract of the 
VZ200 circuit shown here. the 74LS139 decoder allows ad- 
dressing of 000-1FFF(HEX). the first 8K ROM and 
2000-3FFF(HEX) for the second 8K. These outputs need to 
he combined bv diodes to access the full 16K. А resistor is 
needed to pull the chip select pin (active low) high during 
non-access periods. To read the full 16K, address line 13 is 


COMPONENT LAYOUT FOR 2300 


(ЕШІШ! 


| [x3 )--а-5у 


needed. The second diagram will help locate the two 24-ріп 
ROMs which can be removed in the same manner. As it will 
be noticed, the board caters for a 28-pin socket so no extra 
holes are needed. 

The 28-pin socketshould be inserted in the position nearest 
the regulator heatsink. Pin 26 of the socket should be discon- 
nected from the +5 V common with a sharp knife to cut the 
printed circuit track. Pin 27 should then be connected to pin 
28(+5 V). A piece of hookup wire will be needed to connect 
pin 26 (A13) to pin 3 of the Z80 CPU. As shown in the dia- 
gram the two diodes and the 3k3 pullup resistor can be sol- 
dered on the bottom of the board using spaghetti to insulate 
them from other components. The diodes are connected be- 
tween pins 4 and 5 of the 74LS139 and pin 20 of the EPROM, 
which is in turn tied high by the 3k3 resistor. 

Check carefully for any solder bridges on both sides of the 
board, and when you are certain everything is correct, you 
can re-assemble and test. 

At $35 (postage paid) the new EPROM is available from 
LASERLINK 
20.Brunker Rd 
Broadmeadow 2292 NSW 
(049) 62 1678 

The EPROM comes complete with socket and full 
documentation which includes demonstration listings for 
each of the 24 new commands. A list of state agents can be 
obtained from the above address. All in all, you'll find it a 
worthwhile enhancement. 4. 


CUTTRACK 
BETWEEN 
PIN26 AND -5V 


BRIDGE №2200 CIRCUIT MODIFICATION 


PINS 
27 ANO 28 


D0D00000 
UUOÛOÛ DU u 


VZ200 SOLDER 5IC€ 
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RESTORE FILE 


This is probably the most useful 
utility program ever made for the 
VZ200/300. After running out this 
program and typing in new, start 
typing in a program. Now type in 
new to erase the memory; type in 
PRINT USR(0) and hey presto your 
program is back in memory. This 
program is excellent if you're the 
type of person who gets angry 
with their programs. 
R. Banks © M. Saunders 
Mackay Qld 


НРО 
ТНЕНН 


А : `НЕНН= J 
єй E НТФС AB. 1232-42: IFE HEATHEN =Ë Вг 


Yc86 19% 


ñ FOEEI. ALSH: Теж GoTo 


р 5%. 


51 bye long Pregvan loads. ın! 7952 H - 7984 H (31058 — 310%) 


End of АА stetummt, mar kad by , nell. bs). 


HL-re used о. а PST pie v»h| 3x. null. detected. (Eos + £08) 


7952 21 Ға 7A 
55 36 01 
57 Eg 
5Ұ CD FE 1A 
<8 E1 
sC ЖЕ 
s> FE oo 
sF 28 oA 

96 аз 
Єз 3E FF 
64 8c 
et 20 Fs 
© BD 
áA C8 
ET 2o F1 
68 23 
éc 2Е 
é) F£ ос 
oF 20 ЕВ 

797! 23 
72 ТЕ 
73 F£ oo 
75 2о ks 
7 a 


72 РЕ оо 
ЧЕ CD 7А TE 
74 82 C3 64 oo 


LD HL, 7AEQH 
Ld (HD), 4 
TUSH HL 
CALL 10 F8 Н 
PoP HL 

Lp А, (HL) 
CP „лы, 
TR 2, Lf2 
INC HL 

Lb ñ, FFH 
CP H 

TR N2, 1Р4 
CP L 
RET 2 
TR NZ, LP1 
INC HL 

LD A, CHL) 
СР .nW. 


TR N2, LP1 


INC HL 

Ld A, (HL) 
CP .nyll. 

TR №2, LP1 
INC HL 

Lp Q: Fa B) HL 
LD А, am 
СР QS 

CALL 1E3A h 


TP ооб H. 


ЭТИКЕТ 
Pot nonc. null. (dummy) ints $98. 
Swe Sob on steak, a3 Aals 
Lite pointers voutins, G+ Soó ples 
Rer pte. 
TY bute of PST inte A-reg, 
h tk an 605 ле 2 
Yes, Qo Cheek on LOA, . nulls, 
Bump pir, ¥ nax} in PST. 
Chek Fr Tom, 
he byte of pl”, 
Gs bak Jo dek for hoc: 
Le byte of pir. | 
Tom (rere) read,- exit ferror. ^ 
Go back 4, dub біт Lj. 
Bump pir. 5 nx} in PST, 
Pur byte of PST Hh А-у, 
lu fish Боб . „1,2 
Ge back bo jak PST byk. 
Bump pr. bo nu} in PST. 
A bah IO PST mb Ĥ-reg, 
hb seon Fob. null. ? 
Go back L lul PST babe. 
Bum, př. Js mx Y above PST, 
Sul Fob ple kb HL ed. 
LE fu 
Qu 2 - flas, 
CLEA£ rotina, 
NMT routa reset, IPL radon h BAS. 


End of BASIC prog 2x . nell. baba, 


E FILE COPIER бі Bah. 
ia Dave Boxee з\\а) 


18 DHTH223. 22 dr, l28,2852,192,2893.1298,: 2 ‚20%, 149, 93 
zü DATA: 205.177,53, 32 66,56, 205, 244, 55, 205, 231, 52 
zB DRTR62, 2466, 50, 210, 122 

48 FüRIss1G&7TUZ1181:KERDH 


E FILE COPTER INSTRUCTIONS ы 


LEMIN E FILE COFIER THEN PORKESI 21 7. 176. С<КЕТПЕНЗ 

THE Mrawd PROMPT HILL APPEAR, LOAG МНСНІНЕ LRHGLIRSE РЕ 
-OGRAM TO EE COPIED 

HHEH READY FROMPT APPEARS PORES 16р, 243: РОБЕ б, 14 
«КЕТПЕН; PüEEZIBGS.241:PÜKEZ18?H8,195:PFüKEZ1871.172 
SUELE FüKES1B?2.92:PFÜKEZBSz4,PEERC TATTA CRETLEH2 

РОК s. PEEKE APSL 2: PORE21217, 175: PILE NAME’ ¢ FEETUFEH £ 


Ex byte Pegram ы load ®- fk 1, tape. 
Pro ovens loaded inte баға уед б Dos vectors. 


795 В Ес Pusu HL Save HL reg. 
EC aj 39 3% LD HL, зо Н Фі to FLAGA 
SF cB Be RES Z (ni) Rauh bit € Xs 2wo (ском Flay) 
€ CB OE RES 3, (ut) Rud Біз te 2wo (very Mag) 
43 £1 POP HL faber 112 rey. 
{1 f3 DT Dis „Ье Inturupte. 
6 CD 8С 35 CALL 355 С. Pick үр тоғы. 
(8 Es PUSH HL Seve HL veg. 
fa CD Bı 35 CALL 3581 : 
(C 21 42 38 LD не, 3542H д h ‘WAITING +} 
EF с f+ 37 CALL 37F4 
1^ CD Ел 35 CALL 35 67 ыз Saving vovi CoA» 
75 3E A 19 A, FaH Àu to -execute Flag. 
q 22 D2 38 Ly (592533) A Buller Sor casete 1/0. 
7A б3 93 36 JP 3613 ms Up ` LOADING "теше, 
19 15, Са RE T. 12 
Aan. ved zd ux byks Ei progvam . 
7458 #3 DI 
с ОЕР1: LD C, Fr H 
195Е C3 8з 34 ТР 3403 Port of CSAVE. 
3017954 qSi E/E Polo Cb [os сой. CLOAD ah ép 
3988 AS 1% 24/7 Sack gf AAsic oba; 


31217 19 F4 Sab 1, Bu ж Џо buffer . 


String file name 2920 :TO ALLOW ENTRY OF YOUR OWN 
2930 :DATA. THE ABOVE IS JUST АМ 


Recently I required a program RAM location іп ап array. 2940 :EXAMPLE OF SAVING DATA TO A 
DAE 8 s 2950 :DISK FILE. 
to save data to a disk Ше on When а file is to be accessed it 2556 assassin ac caa 


VZ300. Unfortunately, I dis- pokes the file-name into these — 2980 : 
covered you cannot use a string locations. When the program 2990 REM SAVE TO A FILE 


я : an ited 3000 CLS 
as a file name and so I de- begins, nothing will happen for 3919 INPUT"PLEASE ENTER THE FIRST VALUE"; A 


veloped this little program. It а few seconds while the pro- 2020 INPUT"PLEASE ENTER THE SECOND VALUE";B 
searches through RAM to find gram searches for the required 3030 GOSUB 5000 


; : 3040 IF ER THEN GOSUB 25 
where the program begins and lines. аа ня 


then locates the disk file han- .  T.Hand, 3060 RETURN T 
dling lines and stores their .. Bentlelgh, Vic 5980 : 
3990 REM LOAD FROM A FILE 
4000 CLS 


4010 GOSUB 5000 
4020 GOSUB 30 


4030 CLS 
JO GOTG lO 4040 FRINT "FIRST VALUE ENTERED WAS - " 
20 REM LOAD FROM FILE F$ 4050 FRINT А 
ЗО GOSUB 10000:REM CHANGE FILENAME 4060 FRINT "SECOND VALUE ENTERED WAS -" 
40 REM ЖЖ 4070 PRINT B 
50 OFEN" "o 4080 A$=INKEY$:IF LEN(A$)<>O GOTO 4080:REM CLEAR BUFFER 
60 REM xk 4090 FRINT:FRINT 
70 IN#" "A,B 4100 FRINT "FRESS SFACE BAR TO CONTINUE" 
80 REM xx i 4110 AS=INKEY$: IF AS<>" " GOTO 4110:REM WAIT FOR SPACE 
90 CLOSE" “ 4120 RETURN 
100 RETURN 4980 t 
110 : 4990 REM ASK FOR FILENAME 
120 REM SAVE TO FILE F$ 5000 CLS 
130 GOSUB 10000:REM CHANGE FILENAME 5010 INFUT "PLEASE ENTER THE FILENAME";F$ 
160 REM xx .5020 F1$=MID$(F$+" ",1,6) 
170 OFEN" “71 5030 RETURN 
180 REM xx 9980 : қ 
190 FR#" "А,В 9990 КЕМ CHANGE FILE NAMES TO F$ 
200 REH ** 10000 FOR Ізі TO 7 
210 CLOSE" “ 10010 IF F(I)=0 GOTO 10080 
220 RETURN 10020 С=0 
220 : 10030 FOR J=1 TO LEN(F1$) 
240 REM ERASE FILE F$ 10040 POKE F(I)*C, ASC(MIDS(F1$,J, 1)) 
250 GOSUB 10000:REM CHANGE FILENAME 10050 C=C+1 
260 REM tti 10060 NEXT J 
270 ERA" " 10070 NEXT 1 
280 RETURN ; 10080 RETURN 
290 REM ^^ 19980 : 
200 : 19990 REM INITIALIZE ROUTINE 
310 : 20000 DIM F (7) 
320 : 20010 C21 
330 :1T IS VERY IMFORTANT TO ENTER 20020 FOR I-31500 TO 33000 
540 :THE LINES WITH REM xx 20030 IF NOT(PEEK(1)242 AND FEEK(I+1)=42) GOTO 20080 
350 :AS THESE ARE USED TO LOCATE THE 20040 FOR J-I TO 1+20 
360 :FLACE TO CHANGE THE FILE NAME. z 20050 IF FEEK(J)=34 THEN F(C)=J+1:C=C+1:GOTO 20080 
270 : 20060 NEXT J 
280 :THESE THREE ROUTINES ALSO SHOULD 20070 FRINT "ERROR FINDING FILE NAMES":END 
390 :BE AT THE TOF OF THE FROGRAM 20080 IF РЕЕК(1)-94 AND РЕЕК(1%1)-94 GOTO 20100 
400 :TO SAVE TIME WHILE SEARCHING ` 20090 МЕХТ І 
410 :FOR THEIR LOCATION IN MEMORY. 20100 RETURN 
420 : 


450 :WHEN SAVING OR LOADING DATA, 
440 : THE LINES WITH IN# AND FR# 
450 :CAN BE CHANGED TO STORE YOUR 
460 :OWN DATA 
470 
480 
490 
500 REM MAIN FROGRAM я 
1000 GOSUB 20000:REM INITIALIZE 
1010 CLS 
1020 FRINT "DO YOU WANT TO " ` 
1030 FRINT "SAVE, RE-SAVE OR LOAD" 
1040 A$=INKEY$: IF LEN(A$)-O GOTO 1040 
1050 IF A$-"R" THEN GOSUB 2000 

* 1060 IF A$-"S" THEN GOSUB 3000 

- 1070 IF A$-"L" THEN GOSUB 4000 
1080 GOTO 1010 


1980 : . 
1990 КЕМ RE-SAVE А FILE 

2000 ER=-1 

|2010 60508 3000:REM ENTER DATA 
2020 ER=0- 


2050 RETURN 
2900 1111111111111133153 5553 3 412133 33 
2910 :THIS ROUTINE CAN ВЕ CHANGED 
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REM DISK DIRECTORY DUMPER 
REM "BY G.TUNNY (C)OPYRIGHT 1988" 


REM2 3 3 3 J 3 x X X X X X X X X X X ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ 
LPRINTCHR$(Z7);:CHR$(Z21);:REM SET SINGLE LINE FEED 
CLS:PRINT" DISK DUMPER ":REM INVERSE 
INPUT"HEADING FOR DISK"iH$ 

INPUT" INSERT DISK AND HIT RETURN" ;XZ$ 
LPRINL"----":H&i"---— 


LPRINT 
7 
PORE30876,1 $ OUTPvT DEVICE Cope 


STATUS із PRINTER 
отс VIDEO 


+ > CASSETTE 


LPRINT 
POKE30875, 1 
DIR 


X Esc 21. 
FORI=1TOLEN(H$)+7 


May nob work 


ол Ер Seng. 


LPRINT"—-"3:NEXTI 
SPRINTS 
INPUT"ANOTHER COPY" š Y$ 


lFYsz"YES"ORY*z"Y" THENRUN 


Disk Directory the disc status directly on to 


Dumper the printer. 

G. Tunn 
This handy little program А да 
dumps the disk directory and NSW 
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CTRL-Break Disabler 


Ü 'áuethenthiebrtétt t t tn 
7*xDISABLE CTRL-EREAK 
"ж "VZ30B/ 220°" 


“ЖҚ COPYRIGHT 1988 КАҮ 


VZ200/300 


thee 


PROGRAM® 


BY G.TUNNY* 


ж 


122111512222 hawataq yka 


ТМ=РЕЕК ( 20697) +254eFEERs 208998) ~42 


POURE305897, TINT СТМ 255.2963 PORE ZORO, INT {TMZ 256) 


TMzTM-1:4sTM-3552346 
20 FORISATOA*34: READD 


PFOREI,D:NEXTI 


POKEZ22S845,TM- INTCTM/Z32)*255: PORE 30847, INT(TM/256) 


PONE3C845, 195 
REM**REST ОЕ PROGRéM** 


REM 


102 DATA33, 253, 104, 70, 203, EI, 42, OZ, 2014, BW, 32, 2224, 104, 70, 203 


110 DATAS80,40. 02, 201,243, 33. 44,00,21, 00,01, 205,92,52, 251 


120 DATAIvx5. 09.69. 99, BO 


This small machine code pro- 
gram uses the interupt to 
check for the CTRL-break 
keys. If they are pressed the 
program counter jumps to the 
start of ROM and restarts the 
system. But there are o few 
basic commonds that disable 
the interupt, such as DOS 
commands. It is advised you 


save the program before you 
execute it. 

To return the CTRL-break 
keys back to normal, enter 
POKE30845,201 and to re- 
start the machine code pro- 
gram, enter POKE30845,195. 

G. Tunny 
Gorokan 


NSW 


ETI OCTOBER '88 
124 


Se} ммр | oak, Initiated . hy les board Stannin 


robin 87 D/E/F +. TP stot of Program, (338287 ) 
7881/2. Tom pk. 98Ғ/Ғ vse ph. 
3247/8, 3862/3. 
21 FD бтв IDH Ron addr, Аа, — x/smev/c[2]V 
46 LD 6 CHL) losd mdna inler B reg. 
CB So BIT 2, B. Bik 2 h SHAFT key. 
дї 02 TR 2 %2 I} 2evə thin SHFT ku depressed. 
Co RET ; e kc return. 
oo NoP 
a^ DF 68 LD HL @ФЕ Row addr. k' had. 6/S/e7au/Dd/ A/F 
а 17 в (nr) Load matrix mh $ reg. 
CB so та B Bik а Ж Cm kuy. 
Дх од ЈА 2, 92 ЈЕ zevo Ilan RL key Че» resed. 


else reves. 
Disable Нур. 
Set HL CA i 4-42 
Se} 6с (Ове) L. 1D. 


RET 

D1 

17 HL 98&2C 
L) 8C Ska 


CD $C 34 CALL 345 C Sound Youn. 

FB EL Ena bla лр k | 

Сз oo oo JP қақ Cold sta} Computer. 

Әо оо ме?! К (зе baña) 


VZBUG — A useful program for 
memory related work on the 
VZ200 or VZ300 | 


Have you ever wanted to look inside q VZ memory chip? 
There are two ways to do fhis. The first is to get a 
hacksaw and cut the chip in half. The second method is 
to use VZBUG. We think you'll fing VZBUG much more 


informative than the hacksaw. 


ONE OF THE DISADVANTAGES of the 
modern home computer is that the user 
never really gets the opportunity to get 
into the guts of the machine. Most of the 
time the small home micro is in BASIC 
mode, and the user doesn't have any 
idea why the computer does what it 
does. VZBUG remedies this by letting 
you get into the "nitty-gritty" of your 
VZ's insides. 

VZBUG is ideal for fixing jammed 
programs, or for other memory related 
work. In addition, you can use VZBUG 
for loading and saving data onto casset- 
tes, clearing the screen, typing text into 
memory and printing it — a mini word 
processor! 

Once you have VZBUG installed you 
will wonder how you ever got on with- 
out it. 


Functions 


There are seven main functions in 
VZBUG. All numbers are entered from 
the keyboard in hexadecimal. The func- 
tions are called after the program is 
loaded with the following commands: 


C - Clear screen 

G — Goto memory location and execute 
program 

I- Insert ASCII into memory 

L —Load from cassette 

D — Display memory location 

O - Output memory 

S — Save to cassette 


To terminate the program and return to 
BASIC, simply enter G1A19, which 
translates to “goto HEX 1419 and exe- 
cute". 1A19 is the return-to-BASIC 
address contained in the VZ ROMs. 


Clear screen — just type "C" and the 
screen clears, returning the prompt 
character to the top left hand corner of 
the screen. 
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Goto — type “С” and the computer will 
ask you for a memory location. Enter the 
location in HEX and the computer will 
jump to that location and execute what i 
there. If there is not a valid program at 
that address the computer might lock 
up, so be careful. 

Insert ASCII into memory - type “I” 
and an asterisk will appear on the 
screen. Enter the start address (again in 
HEX), and start typing. This is in effect a 
mini word processor. To exit the com- 
mand and return to the VZBUG com- 
mand loop, simply type CTRL "E". 
Load cassette — typing “L’ will result in 
the word “WAITING” willappearon the 
screen. Press PLAY on the cassette 
player and the next program on the tape 
will be loaded, in the same manner as 


10 CLS 


50 PRINT 
60 FOR Х=1 TO2000:NEXT X 
70 CLS 

80 N-1000 

100 FOR As-20480 TO -19286 
110 READ A$ 

150 GOSUB 500 

140 G-Ft16 

150 60508 S10 

160 J=G+F 

170 РОКЕ A.J 

175 
180 
200 
210 
Soo 
sos 
510 
520 
520 
540 
550 FRINT" 
580 PRINT" 
570 FRINT" 
S80 FRINT" 
2590 STOF 
1000 DATA 
1010 DATA 
1020 DATA 


NEXT ñ 


STOP 
ZS=LEFTS(AS, 1) 
GOTO S20 
2$=RIGHTS (AS, 1) 
E=ASC (2%) 


ERROR" 


WRONG BYTE ":AS$ 


CHECK LISTING FOR INCORRECT 
CURRENT ADDRESS": 


ZE, OD, CD, ZA, 03, SE, 2A, CD, ZA, 03,CD,F4, 
F9, РЕ, SZ, CA,A7,81,FE, AC. CA, SZ, E2,FE, 
49, CA, 64, B2, FE, AF, CA, B2, B2, FE, 47, 


the BASIC CRUN command. CTRL 
BREAK will terminate the load and 
return you to BASIC. 

Display and alter memory - this com- 
mand allows you to display and alter 
any memory address in the VZ RAM 
area. Type "D" followed by the address 
you wish to access, e.g. DCF00 will dis- 
play the contents of memory location 
CF00. If you wish to change the con- 
tents, simply type in the new data, in 
HEX of course. If the data typed is O.K., 
press RETURN to proceed to the next 
memory byte. To return to the VZBUG 
command loop, simply type “N”. 
Output memory - there are four diffe- 
rent ways of accessing the VZ's memory 
with this command. They are: 


"Output to printer in ASCII" - This 
prints out the contents of the locations 
selections on your printer in ASCII for- 
mat. This is used to print out text 
created with the “I” command. The out- 
put is terminated by the HEX byte “00”, 
which is the terminating character of 
the "I" command. 


20 FRINT G200,."V2 MEMORY LOADER" 
ZO PRINT @ 2Z2,"=========== 
40 PRINT"THE FROGRAME WILL AUTO.EXECUTE ON COMFLETION" 


M=M+1: IF M=16 FRINT"LINE";:M-O:N-N*10:FRINT N 


FOKE 20862,00: РОКЕ 20862,176:M-USR(N) 


IF E>47 AND E<S8 THEN F-E-48:RETURN 
IF E?64 AND Е<71 THEN Ғ-Е-55: RETURN 


BYTE” 


A 


ZE,FE,00, 28 
44,28,2А,ҒЕ 
28,1F,FE, 42,28 


4 of 2. 


"Output to printer in HEX" - This prints 
out the contents of selected locations on 
your printer in HEX code. Only 256 
bytes are printed and then the program 
stops, displaying a “?” prompt on the 
screen. Press RETURN to print out the 
next 256 bytes or "E" to return to the 
VZBUG loop. 


"Output to screen in ASCII” — Same as 
the first option, but the output is 
directed to the screen, not the printer. 


"Output to screen in HEX" - Same as 
the second option, but output is 
directed to the screen and blocks of 16 
bytes are displayed at a time. To return 
to command loop, press "N" 


These options are selected with the fol- 
lowing command line parameters: 
Select O for output, then: 


S/P to select Screen or 
Printer output, enter 
start address in HEX, 

H/A to select HEX or 


ASCII format. 


e.g. to display address B000 on the 
screen іп HEX, 
type O,S,B000,H 


Save on cassette — this command allows 
you to save a block of memory to cas- 
sette. Type "S" followed by the name 
you wish to allocate to the block (14 
characters maximum). CTRL “E” 
finishes the entry of the file name. You 
must also enter the start and end addres- 
ses of the block and then select either 
"B" or "A", depending on whether you 
want the block saved as a load-only or 
auto-execute routine. The "B" parame- 
ter saves the program as load-only, 


1170 DATA CS, ЗЕ, СЕ, ТЕ, СЯ, ЗЕ, СО, ТЕ, B4, CD, ЗА, OZ, AF, 3A. F 2, СЕ рата Я р 
1140 PATA Ег,ОҒ,СО,2Ғ,В4.С0,28.02,С9,2 ),CD, 28,0 .00 DATA. 32.FB. Ее ЕА,СЕ,СО, 
1150 DATA Ж2,ЕЕ,СЕ,СО,ЕЗ,ОЕ.РЕ, 00,28, F9,FE,0D,29,29,FE,4€ DATA 26,С2,00, ‘BO, ТЕ, °8,81,CD,ED,#1, DD 
1150 DATA CA,00,BO,ZE,AB, Z2,FF,CF,CD,S1,B1,ZA.F5. CF, CD 9F DATA 2A,A4,78,DD,2 ,00,DD,77,00, 3E 
1170 DATA Bi,CB,27,CB,27,.CB, 27, CB, 27, 47, 2A, F7, CF, CD, OF, B1 1400 DATA OD, DD, 77,01, „Сз, cp, Еа, ШЕ, FE 
1180 DATA 8О,Ер,5В,ЕО,СЕ,12,2А,ЕРО,СЕ,2® FO,.CF,CD,Z8,RB1 1410 DATA 
1199 DATA ZE.OD,CD ,OZ,C3,B2,BO,CD, 50,24, CD, $0, 34,CD, SO 1420 DATA © КЕ 
1200 рата 24,Ср,50, “со, 4, CD, SO, 34, CD, SO, 34, CD, 50, 34 1420 DATA з: 
1210 DATA С9,ОО,21,Е4,СЕ,ОО,22,Е4,СЕ,СО,Е4,2Е,ЕЕ,ОО,СА,59 1440 DATA 2 ,2F,CD, ZA ZE, SO, CD, 3A 
1220 DATA E1,11, 26,84, 47, 1A, B8,CA, 72, B1,FE,FF,CA, 59, B1, 15 1450 DATA 28,F9, FE, SO, 28,06, FE, 5, 28,05 
1220 DATA 18.F3,CD.Z4,02,DD,2A,F4,CF,DD.,77,02,DD Р 1450 рата DD,CD, 25, 02, CD, ED, B1, SE, 48,CD 
1240 DATA F4,CF,CD, .БІ.СА,ЕҒ,СЕ,ҒЕ,АВ,СА,96,Б1, .F4,.CF 1470 DATA 2 E,41,CD,ZA5,03,CD,F4,2E,FE 
DATA FE,FB,CB,C3 SEA,CF,FE,F5,CB,C3, 59, B1, DE 1480 DATA 00,28,F9,FE, ‚ав, СА,25,В2,ҒЕ.41,СА.6 ,В2,18,Е0,2Е 
DATA ZO.FE,OA 78. DE, 07,C9, CD, 28, B1, ZE, OD.C 1490 DATA OD,CD,26,02,20,44,78,2A,E2, CF, FE, 50,СА, OF , 84, CD 
DATA 4E. CD, За 1500 DATA 75,28, OO, BO, 3E, OD, CD, 3A, 03, 3A, E2,CF,FE , 50, 28 
DATA ср, за, о „2D, CD, ЗА, 02, DD, 21 “ро, ‚СЕ, 1510 DATA 51 ,А5.78,С0,62,В2,2А.44,78.Ср, E „ODED 
DATA O0, рр «DD, 22, EO, CF, CD, 87, B2, 1520 DATA та 26,54,78,05,10,7E, CD, 63, B2,22,10,F9,22,44 
DATA OD.CD,.Z4.02, CD, ED, BL, CD, FC, B1, ов. 82,36; 1520 рата 78,CD.F4,2E,FE, 00, 28, F9, FE, OD, 28, DS, FE, 4E , CA, OO 
DATA ZA,O02,CD,5B,BO,.2A.FA,CF,22,A4,78,C9, 5E,45,CD, ЗА 1540 DATA В0.18. EE, 2,FO,CF,E6,FO,CB, ЗЕ, СЕ, ZF,CB, ze , CB, ЗЕ 
2 DATA © EE, BO, ТА. FA, CF, 22,F9,78,C?, 3E, 42, 1550 рата CD,2F,B4,CD, ЗА, 03, ZA, FO,CF,E6, ОЕ, СО, Е, в4, СО, ЗА 
2 БАТА Е, 20, СО 02, SE 41. CD. 2A, prom CD 1560 DATA OZ,C9,ZE,10,Z22,E4,CF, ЗА, 45,78, 4Е, CD, C4, 83, 2A,AF 
DATA = 1570 DATA 78,4F,CD,C4, BZ, 0E, 20,CD, 8D, 05, 2E, 10, 22,E9 , CF, ЗА 
DATA 1580 DATA EB,CF,FE,00,28,56, 3D, 22, E8, CF, 20, 44,78, 7E , 22, 22 
1020 DATA 1590 DATA 44,78,CD,C4,BZ,0E, 20, CD; 8D, O5, 18, EZ, OE.0A , CD, 8D 
1040 DATA Li 2 5 1600 DATA 05C3 ‚Оо EO; I2, FO, CF E6 Ро, СЕ, ZE CR, ZF,CE 3F, CE 
1050 DATA z8.B1, CD. 5B. BO.2A.FA.CF,E9,CD. 3 і : s 1610 DATA ЗЕ,Ср,2Е, Ва, 4F,CD.8D,05, 30,F0,CF,E4, OF cD. 2F, 84 
1060 DATA 58, Во, ЗА, ҒА, СЕ, 22,Е0,СЕ, C3, 62, ВО, CD, 51, B1, ТЕ, ор 1620 DATA 24Ғ,Ср,80,05,С9,2Е,2Ғ,Ср, AOZ, CD, F4, 2E,FE ,00, 28 
1070 DATA „ЗА. F8,CF.CD.9F, BI, CE. 27, CBE, 27, CB, 27, CE 1520 DATA F9,FE,0D,28,8D,FE, 45, СА, OO, EO, 18,EE, OE, 0A . CD. 8D 
1080 DATA FA, CF, та, F9, CF, Cp, 9F, Bl. 47, 3A, FA, CE, 80,32 1540 DATA OS, 7A,€4,CF, 3D, FE, 00, 28, DC, Z2,E4, CF,CZ,gz , B2, 22 
1990 DATA 1550 DATA Eb, CF,7E,FE, 00, СА, 00, BO; FE, OD, СА, 27, B4, qp , СО, 8D 
1100 DATA 32,FD,CF,7A, LET, “СЕ, ‘cp. oF, EL, 1473A, FD, CF, 80 1560 DATA 05,24,E6,CF, 22, 18, EB, ТЕ, OA, 4F, CD, BD, OS, 1g ,F2, 11 
1110 DATA СЕ, С9, За. Ео. СЕ, 7с, CD, C9, BO, 7D, CD, C9, BO, 1670 DATA 25,В4. SF,1A,C9,20,31,32,33, 24, 35, 35, 357 , 28, 39 
1120 DATA Z4,02.7E. CD, C9, BO,CZ,E9, BO, Z2, F2,CF, Ев. FO, CE, ZF 1680 DATA 41,42, 5 44, 45,46, FF 


2 of a 


whereas using the "A" parameter will 
create an auto-executing file. If you use 
the "A" parameter, be certain that the 
start address is a valid execute address, 
or the computer may lock up. 


Getting VZBUG going 

VZBUG is loaded as a BASIC program 
shown in the accompanying listing. I 
would strongly suggest that you enter 
the program in a number of stages, sav- 
ing your work progressively. Take your 
time — maybe you should consider 
entering the data in two or three sittings, 
rather than a single eye-blurring, mind- 
boggling session. 

Before you run the program initially, 
SAVE IT to cassette. As is always the 
case with machine-language-loading 
BASIC programs, a single error in enter- 
ing the DATA statements can result in a 
computer lock-up, and the loss of all 
data in memory. 

When the program is loaded it pokes 
into memory all the HEX code con- 
tained in the DATA statements at the 
end of the listing. It also checks to see if 
you have accidentally entered a non- 
HEX byte, and if so displays the address 
and contents of the incorrect byte. You 
can use this to locate and correct the 
error, by comparing the listings. 

If you enter an incorrect but neverthe- 
less valid HEX byte, the program will 
not trap it, and it may cause lock-up, so 
proceed slowly and carefully. 

The program occupies addresses 
В000 to B447. It cannot be moved as it 
contains absolute addresses. I am pre- 
pared to supply reassembled programs 
at a different address, if you drop mea 
line at my address (see end of article), 
including a blank cassette arid. cheque/ 
money order for $10. 


Useful subroutines 


Here are some additional useful sub- 
routines I have implemented in VZBUG 
for users. 

Executing hexadecimal address B151 
instructs the computer to accept either 


two or four bytes from the keyboard, 


convert them to HEX and store them at 
HEX CFFA/B. The size of the input, two 
orfourbytes,is determined bythecheck 


. byte located at CFFF If the check byte is 


HEX AB, then two characters will be 
accepted. Any other data willallow four 
bytes to be accepted. 

Calling address B19F converts HEX to 
ASCII, and is used to display HEX data 
on the screen. The valueto beconverted 
is the one resident in the accumulator, 
after conversion is completed, the con- 
verted value is held in the accumulator. 

Location B42F contains a routine to 
convert ASCII input from the keyboard 
into HEX. As with address B19F, the 
accumulator is used for both the origi- 
nal and converted values. The D and E 
registers are also used for this. 

Besides these useful subroutines, 
there are many more contained in the 
VZ ROMs. Included with the assembler 
tape from Dick Smith Electronics is a 
full listing of the useful VZ subroutines. 


Ready set go! 

Now is the time to roll up your sleeves, 
polish your glasses, take the phone off 
the hook, and enter in the VZBUG list- 
ing. REMEMBER - take it easy, be care- 


ful, double and triple check, and save 
before you run. HAPPY COMPUTING! 


Reg Batger 
13 Hillview Rd, 
Kellyville 2153 NSW 
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Clock 

This is another of ту inter- 
rupt controlled programs for 
all you VZ owners out there. 
This machine code program 
could be put into games os 
an accurate timer. Because 
this program does not depend 
on basic, it will not lose track 
of time when you break out 
of the program. There are 
only a few commands that 
will make it lose a second or 
two, such as DOS or sound 


ETI NOVEMBER ‘88 
120 


1 of 2 


commonds. 

The storoge locotions used 
for the seconds, minutes ond 
hours ore written in the Bosic 
progrom ond con be poked to 
change them. It is advisable 
to save this program before 


you run it because machine , 
code hos o nasty habit of | 


crashing. 
G. Tunny 
Gorokan 


NSW 


l 'w.............. 
27% CLOCK * 
3 '* РҮ G.TUNNY + 
4 '* (C)OPYRIGHT + 
5 "ж JULY 1988 * 

Ó CRGO 222522152224 

10 DATA33,4(02:121,53,192, 54,60, 58, 197,121, 60 
20 ОАТА254, 60, 20, 4, 50, 197,121, 201, 33, 197 

32 DATA121,54,04,58,194,121,60,254, 60, 40 

42 DATA4, 50, 19451215 2815333 194,121, 54,0 


50 DATA1,@, 1,33, 42,0, 205, 92,52,58 


-6@ DATA195,121,60,254,13, 40, 4,50, 195, 122 


72 DATA201,33,195,121,54,1,201, 0.0 7° bytes, 
100 TH=PEEK (30897 ) «256«PEEK (30696) >q 7° 

11@ POKE30897, TM- INT( TM/256) +256: POKE30898. INT(TM/256) 
120 ТМ=ТМ-1:А=ТМ-65536 

130 FORI=0T068 

140 READD:POKEI*A,D 

150 NEXTI 

160 POKE30846, TM- INT( TH/256) #250: POKE30847, ІМТ(ТМ/256) 
170 РОКЕЗ0845,195 

200 CLS 

210 S-311731:' STORAGE LOCATION FOR SECONDS 

220 M-31170:' STORAGE LOCATION FOR MINUTES 

230 H=31171:' STORAGE LOCATION FOR HOURS 

240 PRINT'*«ENTER CURRENT TIME*«* 

250 PRINT: INPUT*MINUTES* { А: РОКЕМ, А 

260 INPUT*HOURS* $ At РОКЕН, А 
270 CLS 

282 PRINTa820,'SECONDS*,PÉEK(S)i* * 
290 PRINT8O.PEEK(H) i* it ;PEEK( HD 1" " 


300 GOTO 280 


A Magi: interes ting application of interrupt vse, 


“Ті. 


tnderrupk vector 30845/6/9 => 0112/£] F H is stolen 


and Used s R: NA th maching language N дух) оһ net} shut. 


737DH Б se? 4o 
+k. 


Sn interrupt "as 


ІК кар | Servie Rovting 


RETorn during ini на АН at 3E34 H. 


called $0 Tam 


Jia pe Second, 


B is САДА hy 


at 2ЕВСН. evry 20 m.Ste. 


| А. er as] 


Ueluc: Er Himig ) mey һа. о Нең % Pte е.) соуға d Jara: ^ 
Note shat ол the hour ; a beep ң moda. 
face Jemp бле fags less are UT» In dhe Comms. Aria, huc 


Cause Р" bk m$, le Soman 


PES 
3170 792 H — MIN. 
3171 79 Өн T Hour. 
311 68 ла CoH - Коомт 
3173 13 Cs H —  S£C. 


app JC hoa б 


Thuy are 


21 Со 


оо оо 


19 


7 


ol 

ор 
34 
07 


Wl 


CLOCK Poutin ETI Nov $$. Р 130, 


LD HL, KOUNT 
DEC (HL) 
RET NZ 
LD (Hn), £o 
L» A, (sec) 
INC A 

CP 60 

IR 2, 4 

LD (sec), A 
RET 

LD HL, SEC 
LD CHD, o 
LD A, (mis) 
INC А 

CP о 
382,4 

LD (мм) А 
RET 

LD HL, mıne 
LD (HL), о 
LD ВС, 256 
LD HL, 42 
CALL 34SCH 
LD A, (Hour) 
Inc A 

CF 13 

TR м, 4 
LD (Hour), A 
RET 


¿D HL, HOUR < 


17 (н), 1 
REX 


Nor s. 


Poink HL at interrupt counter Count down secs 
Decrement Counter 

Qulu Bala ЖТ. zivo “eke continu to st Ems. 
Rest counter. (еа valve) E 
PY sic amk A ` 

neran} А. 

Compa wh бо. 

IC zwo go to min, А elsa сом nw, 

Rud SEC 

Фо 4 marlin. 

pik i ok SEC Nin. маиле, 
Sub SEC to zwo 

Ф} MIN inte A 

herem? А 

Compare wilh фо, 

0 zwo go to Ме vovin, ebe continue. 

Reset m iN 

ФА bo maia line 

fob HL at MIN Howe youtine . 
Suk min to гемо, 

Su duration to 7266: 

Sot tom d. 42 

Sound bae wery hour. 

Put Hour inte A 

Increment 4 

Сауе е к ОЗ, 

K zw. 90 +a hour vesc) rovtine , che Continue, 
Reset Hour, 

Redurn L main hinc. 


Tov UL at Но UR Н Vese} " ina: | 
Set ' Hove + Onu. 
Ritorn +o Mam 5% ^ Fu Mi 


2 of 2. 


Hello program 


This hello program loads the 
directory onto the screen and 
convenlently allows the user to 
load, run or erase programs 
without typing lengthy filenames. 
If there are any filenames that | 
you don't want to come up In the 


hello program, rename the | 
fllenames to have an asterisk at | 
the front. 
e.g. a file — 'plcture becomes 
(Picture). 
G Tunny | 
Gorokan 
NSW | 
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1 бот 
3 REH 
4 LOA 
5 ВЕМ 
& BLO 
19 RE 
28 RU 
3e RE 
48 BR 
50 RE 
89 ER 
98 RE 
91 te 
92 '* 
93 '+ 
947» 
95 '* 
96 '* 
97 '* 
100 T 
120 R 
130 T 
135 I 
140 P 
150 1 
160 I 
178 6 
200 T 
210 I 
220 G 
230 T 


01802 
Л 
р“ . 
n 
Ар" ° 
Mt! 
N* . 
M! 
ом" . ! 
mit 
А" * t RUN 
" 
9*3 4-44-44 ФАЗА З АРААРА З 
DOS "HELLO"* PROGRAM ж 
v2300/200 - 
WRITTEN BY G.TUNNY + 
(C)OPYRIGHT 1988 + 
NOVEMBER * 
теа ARA 
=PEEK( 30884 )+2756*PEEN (40885) 
ЕМ 
=T+1 
FT>32767THENT=T-65536 
-РЕЕК(Т) 
FP=33ANDPEEK(T+1)=33THEN200 
FP=94ANDPEEK(T+1)=94THENRETURN 
ото1зе | 
=T+1 | 
FPEEK(T)*34THEN230 
oTO200 ! 
=T+1 


240 FORI=1TOLEN(F$) 
250 CS=MIDS(FS.141) 
260 C*ASC(CS) 


270 P 
280 T 


OKET, С 
=T+1 ` 


290 NEXTI 


392 I 


FL=7THEN160 


310 FORI=LTOL 

320 POKET, 32:T=T+1 
330 NEXTI 

348 GOTO168 


18808 
1005 
1010 
1020 
1030 
1848 
1858 
1868 
1865 
1878 
1975 
1080 
1090 


71199 


1110 
1120 
1150 
1200 
1210 
1220 
1230 
1235 
1237 
1248 
1259 
1255 
1260 
1278 
1289 
1283 
1285 
1287 
1290 
1300 
1210 
1320 
1500 
1519 
1800 
1810 
1820 
1830 
1835 
1840 
19288 
1918 
1928 
1938 
2008 


2010 
2020 
2030 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2200 
2219 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2298 
2300 


T2z286721C2651A21 

P=PEEK(T) tF(A) =Р 

РОкЕТ.С:РОКЕТ»1.93 

T=T+32t1C=C+1:1AmA+1 
P=PEEK(T):1FP=96THEN1050 

GOT01005 

DIMFS(20):DIMNFS(20) 

T=286731C=1:F=1 

ЕЗ(С)=*°* 

FORJ#=1T08! IF PEEK(T+J) *96THENNEXTJ !GOT01100 
РчРЕЕК(Т%/)11ЕР>95ТНЕМР«Р-0% 

ЕФ(С) =Е%(С) +СНАФЕР) 

NEXTJ 

C=C+1:T=T+32:FN=FN+1 
ТЕРЕЕК(Т)=95ТНЕМ115@ 

GOTO1065 

605082102 
FORI*S1TOLEN(B$)1A$2INKEYStAS*INKEYS 
PRINT3448,HMID$(B$,1,230). 

XsUSR(X) 

IFAS=* * THENNEXTI tGOT01200 
IFA$2*1*THENLD*1:GOSUB1900 

IFAS=* 2° ТНЕМ.0=2:605082000 
АтА5С(АЯ):1ҒА<5ЗОНА>ФФТНЕМ1 200 
А=А-55 , 
IFAX2FNTHENSOUND314,11GOTO1200 
FS=FS(A) Z 

IFF(A)=oB, CLSTPRINTTAB(6$ "CANNOT LOAD DATA FILE! 91607015202 
GOSUB100 

IFLD*1ANDF (A) =84THENS 
IFLD*1ANDF (A) 4665THENS 

IFLD=2THEN6Q 

IFF(A)=84THEN1O 

LFF (A) =66ТНЕМЗӘ 

CLS!tPRINT® IDENTIFICATION ERROR! !® 
STOP 
FORI*1TO31S0UND314,1124,21174, ^ tNEXTI 
RUN 
CLEAR15QQ!F$z *FILENAHE* t POKE30852. 80! POKE3O0B63, 52 
CLS:1DIRIDIMF(2Q0) 


s.o. ТҮРЕ LETTER TO RUN. acl" | 
.MRITTEN BY G.TUNNY (C)OPYRIGHT ° | 


Bs=Bs+*1988........° 
бвото1гаа ; | 
IF INKEY$<>* *тнЕм19@@ | 
PRINT3ASQ,' ТҮРЕ LETTER TO LOAD °“ | 
IFINKEYS=* *THEN1920 

RETURN | 
IFINKEYSO**THEN2000 Ц _ __ 


PRINT3480,* TYPE LETTER TO ERASE "3 
IFINKEY$*** THEN20ZO 
RETURN 

K=FN:FORI=1TOFN 
L$=LEFT$(F%(1)+1) 
L=ASC(Ls) 
IFL*42THENNEXTI:GOTO2200 
Z9Z*11NF$(Z)eFSCID tFCZ)mF(CI) 
X=USR(X) 

NEXTI:GOTO2200 
SC221Y211FN*Z 
PRINT@SCyNFS(Y) 3° R 
IFY=FNTHEN2250 
Y=Y+11SC=SC+32 

60702210 

РОВІ ={ ТОЕМ 

FS(I)=NFS(I) 

МЕХТІ 

FORI=FNTO14 

PRINT3I*32.* 

NEXTI RETURN 


VZ 200/300 


40 КЕП UISISCRT 
2—2? Se REN FOR UF200/508 
Visisort бе REN ВТ P.J.SHEPPRRO 
С . . “| 
This progrom implements eight Ж Panas au ады; 
sort techniques qt selectoble 103 ? INITIALIZE VARIABLES, ETC 
Я n 112 CLEPRSQO:01(59020, 2), 88132, 58013) 2%] $408 :Х2 225 :05 -CHREC 34 
speeds of which Ois the fastest. 120 PP-26:N1-154:N2-252:N1-186 :N8=411:01=20 :62-38:83-26 
Sort data can be either letters or 13а SOUNDA, 9 = 
1 140 CLS 
numbers which can be chosen 180 PRINTPRINT” & 01S5SISOSÓTSa" 
by the computer or the user. The — 
program is approximately 5.6 k 108 PRINT" — . --—----- =~ PRINT 
-42@ PRINT" C11..STANOSKO BUBBLE SORT 
180 FRINT” (C2). .BUBBLE SORT WITH SINKER 
long and Duns «on the v2 136 PRINT” C3)..SUPER BUBSLE SORT 
200/300, but not on the 200 PRINT” (4). EXCHANGE SORT 
210 PRINT” C5}..OELATEO REPLACEMENT SORT 
unexpanded VZ 200. Instructions Dod ERINTUEQU AELE ОЕТ 
to use it are contained in the 230 PRINT” (21..SHELL - METENER SORT 
242 PRINT" C85..QUICK = SORT 
program. 
250 PRINT” C3)..EXIT PROGRAM 
PJ Sheppard 260 PRINTS4SI,"SELECT SORT ROUTINE ..."; 
Christchurch 265 Da»INKETA 2 ) 
2 I nd 220 FORJ-OTOO :CH3 7 INKET3 :JeC CHA X" 1 ")ORCCH42 "9") ) NEXT 
New Zeala 282 CHUL ECHO) :TFCHeSIHENZ320ELSEPRINTCH :SOUN039, 2 ;2, 2 
790 CLS 
322 52508490 
212 FORK«QTIONS:86CK)-735CK )5;PRINTE322K +32, 46CK) NEXT 
328 NE-Q:NC-90 :NO=Q :NI=186 
332 ÍFNS»STHENHI-184 
335 ! SCRT STATUS 
348 PRINTQ26,"NO CF ITEMS .. "OSING"32";NSr1 
350 FRINTal1gà, "----------------- Ө; 
362 rFEINTQ140, "COMPARISONS , “% 
328 FRINT4122, “EXCHANGES ... 0”; 
ЕТІ FEBRUARY “89 382 RRINTS2Q4, "----------- 
es 332 PRINT@736, "TOTAL ЕСТІСІ а”; 
119 12o 402 РЕІМТа258,”-----------------»; 


425 > SORT ROUTINES 
^10 IFCH=1 GOSUBI12IGECSEIFCH«2 GOSUB148GELSEIFCH#3 GOSUB:238 
414 IFCH-4 GOSUBISSGELSEIFCH=S GOSUBIÓSOELSEIFCH-4 005081840 
418 IFCH=2 GOSUSIS7GELSEIFCH=8 605082129 
422 GOSCES^0 

PS 1 s$ 2 432 PRINTS300, "11::1z2:2::22x2:112*; 

š 440 РРІМТ8332,”2 SORT COMPLETE 57; 

450 PRINTQ264, "E£f3212:0 f? 1123"; 
480 PRINTH423, “RESORT ORIGINAL”; 
422 PRINT@461, "LIST......CT/N2" ; 
425 O*-INXEYS 
480 FORJ-0IO0:RFS-INKEYS :JeCCRF& C "Y" )FNOCRF Ф O “N” ) ) : NEXT GOTO! 40 
485 SOUNO20, 1 
4230 IFRF$-"Y*THEN2SQ 
435 ' SORT DATA 
380 Feed Hse” 
212 PRINT"HOU MANY ITEMS TO SORT” 
520 PRINI"SELECT BETUEEN 4 AND 14 “< 9; 
523 D4-IMEEYA 22556-77 
538 SSs=INKEY8 :SDUNOQ, 1 
535 IFSSs-""THENS?SELSESOUNO?Q, 1 
Зав IF338-"1"RANUNSS&Q" ) " THENNSS “NSS 0556 :FF=] :PRINTSS& ; :G0 (0532 
$30 IFFF-LANDCSSS4"Q"DRSS4) " 4" JORFF-GANOCSS 8 C"4"0R 552" 3^1, 320 
$60 PRINTSS4:NS&-NSSTSSS:NS-URLCNSS]-1 
522 PRINT:PRIMT"SUPPLIEO BY COMPUTER OR USER ?* 
582 PRINT"PRESS "Q&*C*Q0£" OR ”Паа”и”0е”...%; 
585 Оз-ІмКЕТЕ :RIZ-INKETA& 
$30 IFRI&-"U^THENOÓSGELSEIFRIS-"C' THENPRINT* COMPUTER ELSESES 
535 ' COMPUTER CATA 
ба@ PRINT;PRINT"NÜCBERS OR LETTERS?” 
6180 FRINT*PRESS "O4*N"O4* OR "Qs*L"0s",,."; 
615 Ds5-IMKEYS 
620 РОБ атоо :Rs-INKETS :J«CCR& O “N” JANDCR& O "C" )) NEXT 
632 IFR&-"N^"THENPRINT"NOGBERS"ELSE IFR&^"C" THENPRINT “LETTERS” 
635 SOUNDG, 1 
642 FORK-OTONS 
652 IFR&-"C"THENS&CK J -CHRS CRND C26) 364 JELSESECK J-S T R&CRNOUS 7) 10) 
660 МЕХТК 
620 GOTO2SQ 
623 ' USERS ORTA 
632 CLS 
6832 PRINT"ONE CHARACTER PER LINE ПААТЛИП” 
708 FRINT“CLETTERS OR NUMBERS ONLY)” 
210 FORK-QTONS 
720 PRINI"ITED a"K*- "; 
223 DSW INKEYS :FORJ-QTOO sS&CK)- It EYA 
230 J-CS&CK ) B JORC"2* SECK) ORCC” 3" G34 CK) RNDCs e СК) C872) 
235 NEXT 
248 PRINTS&CK23E5DUMC2B, | NEXTE 
250 RPe-"N* 
262 CLs 
720 RETURN ; 
282 PRINTQ4326,"PRESS RETURN» TO”; 
2930 PRINTQ428, “START THE SCRI..."; 
235 Os-INKEYS 
$00 KIs-INKET8:IFKI# O CHR&C13)THEN89O 
810 5920в890 
915 ° SORT SPEED 
$20 PRIN[4330,"SPEEO SET АТ 1-”Б0К(51/252; 


530 PRINT#428, "0 - Э ALTERS 5РЕЕО"; 1532 ORINTO?, "емнен EXCHANGE 


SOR! eT, 


846 РЕЈмте460,С2". "Пё" STOPS PROGRAM" 3 1500 62218290 

SSC RETURN 4 1510 rORi-CTICNS-1 

BEG ҒОР572-1102:9Б1М709268%5Са%22,7 "j NEAT 1620 FORJeIti1TONS 

865 RETURN à 1639 X~] :Y+J :5050ВЗаа 

870 ? POINTER ROUTINE 1640 1ҒАғ2125-8682221НЕм1560 
880 NCeNC*]) :PRINTRNI] USING" nat ;NC 1652 GOLUB IEG 

820 NOON +NESPRINT@NZ, USING! naa" ;ND 1660 МЕХЇЈ,! 

SOC РКІМ1832ХХаРҒ,“5е- 7; 2 


1622 GOSLB4:€ 

1680 RETURN 

1632 :PRINTéQ," == DELAYED REPLACEMENT SORT "= 
1202 nficUgB2s0 

zn ЗБ! 


310 FRINTU221YA?P, an; 
824 FORTI-1TOX1:NEXT 

930 PkIMi8^2XXFP," — *; 
940 PRINTé27EZY-PP," “j 
350 OsINVEYS wee INKEYS 


Jein) 
S60 TFUS O " " THENX] GALLUS) 2X25 :62508. х1: 1222 IFi*"NSTIHENI8Tw« 
PRINTENG, VAL (Ы2)} „ 01280 JellR=Jei 


320 IFL-","THENGOSUBS86P:PRINIG323,"SCERT  - 
TERMINATED”; 7607040 
Зас RETURN 


R: GOSLBELA 
РНИ 


930 › “5ШІТСНЕМ” ROUTINE Rr) IFR Ce: 
їаё@ FORK-BTO4 #-1нЁч122@ 
1018 PNWINTGO7EItK:32," "Я6С123 1828 .53.,081003 
1022 DPRINTGSTEJ:iKTR]," "R£0J2; 


1030 WEATK 
1042 RINT AI 7," афс); 


1930 Гғ-2-1 1540 -"Қ1Һ7ӨС,"әжете-«- SHELL SORT wee 
106% FORK-1T0DF 1850 120508782 

1522 PRINT82221I:* vi 1950 Ием 

YSU DRINTO2TEO 1878 feIATQE/22: 1F5-0THEN1358 E 
1022 FORT =i TOK? NEXT 1980 Ней 

11й@ ҒРІмтаЗ?2А52-к112ч62,7 v4 1650 Ter kL Os Jel tM. v1 Ted ;GOSUEaS0 

1210 [RINTI eA АА 1900 TFASCI) ста CS THEN 320 

1248 EE 1810 925081002 


170 PORKA TOSS Ped 1929 Fle} 
FRIST 03152,0821; $ 1930 HeH-1:1F J «NS THEN; 89C 


3 PRINTER 432, 98559" r 1348 ІЕҒС“1АМОНМ»1Тн2х2860Е25Е1820 
NEZ: 1958 60508472 
2 Kerner; 1360 RETURN 
ERINTO, USING" ane” F4E; 1920 :PRINIS2,"--- SHELL = METZNER SORT ==" 
TES-RRLII:eRIIQ-A5(J).6€0J2-7E8 1388 52508262 
RETURN 1998 news 
ГЕТАТӘТ,”еме----- BÜBBLE SORT ------- 2000 Пе1мТіМ/22:1ҒлеоТнЕн2109 
22508780 2210 Fens-4 
Flee 2920 ч-2 
FORI=QTONHS-1 22302 I-H 
Adm] r sYes «HOSUR 2242 JeIsn:x-I:Y-J:GOSUBSea 
IFR&LI)4-050J2TpEN1222 2050 1Ғ66212<-ғаС2274Ек2089 
(ШЕЛ тобе 505081000 
2-5 81003 :IF122QTHeN2040Q 
NEXT? 
Te Fi} THENIZ30 2232 ІРН>РТнЕм2020:15Е2022 
60218424 2100 GOSU:8420 
RETURN 2118 RETURN 
SPRINTHE, “serene SUPER BUBRLESORT е. 2123 :PRINT82, 99945444 QUICK SORT waman 
50209280 2138 cosLB2e0 
5-1 2140 11-9:21-ч5:Ғ-Ә 
-GOSUSESO 2.58 FRIHTQ320,"STRCK COUNTER. . “USING” лап jP 
Ен; 96 2160 1-11 
SSSLBi 208 ; 


2:26 PRINT0222, 'SU8ER-RECCSO. .. ав 21) 


ne б 2180 1-11.5--1 
ІЗІНЕН; 450 А 2190 44] :Y-2J:G607U8580 
471:1-1-; 202 1Ғо4:Х25-867%21нЕн2220 


SPAR LTT Cease TG MENT ae 22:8 GD3UB1200 


GL Sia ega 2222 54-5 

12702622 2220 1Ғ541ТнЕМ!“І"1Е15Е1-4-1 
a 2240 !FICQTHEN2:92 

KEKI 27520 IF]12)41THEN?273 
RETURN 


2250 P-P*1:3580P,. 1271 v1 :S30P, 227221 
2270 21“1-1 

27283 IFI1QG1THONZ ZI 

2220 IFP-OIHENA120 


2,7- ый ORT Мін ЧЕ = 


(281 vero 


2309 11«39:P,12:J1«S3P, 22 :P«P-1 
iudel:ri.Yead.oc8UBoea2 А 
mt 70712 
2075 Soria CJ THENI SSO 22:9 BE OLA Y 
2372 5 CAT 
F! -+1 :GOSUS 1003 e с, муу, 
NeXTI 7275 ILERRSO:ZLS;ENGO 
iF FL) THEM 3O2 
3.313422 . 
3 RETURN 


ЕТІ FEBRUARY ‘89 
120 


Py 2 ofa. 


ЖЖЖ RESTORE FOR Uz-280^320 Xxx 
1 DATA® 2375515335" 21s 205; $4527) 210,72 1733 


BA 294 503253. 129. 
2 ЕОК0=313897031404: 
3 PDKE32862,152:PDKE30863, 122 


7 


Hint for VZ-200/300 


EVER wanted to restore to a 
particular line number? This short 
routine will let you do it. In VZ 
basic, RESTORE simply sets the 
DATA LINE POINTER to the byte 
before the first program line. This 
routine makes the line number in 
the .statement X=USR (line 


number) and calls a ROM routine . 


to find the line in memory. It then 


£ TT Nw 39. 


201 
RERDR :РОКЕЧ, A:NEXT 


moves back one byte, and stores 
this as the new DATA LINE 
POINTER. 

An undefined statement error 
is given if no such line exists. This 
routine is stored in the cassette 
name buffer, but can be stored 
anywhere in memory. 

Shane Rowe, 
Spring Hill, Qld. 


o 73, 


7492 ED 58 >, 


19 LD DE, (таан) Ped no. passo by usa) inh DE. 
1441 CD 3C В CALL 1B82CH p Sench АЫ AS DE 
AA i 
7 4 D2 24 13 IP NC, 4EDqH PRI. lo ÜZ error handling А 
: 1524 Fe: doeal cast | 
"hub oB DEC Bc > pol 1, Previous byte. 
TARAS Æ +3 ff. LD (7s Рен) bC j ex byte "Ы DATA LINE РТА 
qAAC Ca RET то, + BASIC cod will DATA 


7 ғ. be RES тоқ ED 


NB, Use pe, sod Í 7492, 


1А442--ААс ir ash bul 5 Comi, arta, 


Hex/dec and dec/hex conversion 


THIS short VZ listing does exactly machines. 
what the name suggests and it 
can easily be adopted to other 


Dra, 


ü БЕМ HEX-DEC Tü ГЕС “НЕХ COMMERZIOH MEITTEN 
1 FEM LCOUPVYEIGHT G4 HIS PROGRAM Л 


Ет 
T 
2 REM HESAGECIMAL TO CEC IMAL аны VICE VERSA .] 


3 REM FOR THE VzZ-zGB AND WZ-200 БЫТ CRM EE VERY 

4 REM ТО OTHER MACHINES 

5 БЕМ---------------------------- 

& Нф-"В1234567ФЭНЕСОЕЕ":ЕРШей:ЕРФ-"?ЕРВОЕ":БЕ-65526 


? CLS:PFRIHT"IZISEZAI ZUR оғ лам A Ei" 
5 FRIHT"MREITTEH EY D, MAUMOER"” 


3 PRINT 

18 PFRINT"HHICH:" 

11 PRINT" 1 HERACECIMAL TO DECIMARL" 
12 FRIHT" . & DECIMAL TO HE#HDECIHRL " 


ЕЕІНТ" 3 muIT" 
IHFUT"7";hR 

ІЕН-ІТНЕНІЗ 
IFR=#THEH2ZE 
IFHZZTHEHPFÜEKEZ&Z45,]22 


UI ерата спо لا‎ 


пото 

з: 

PEIHT" HEXRHDECIHMRL TO БЕСІНЕ" 
FRIHT" RETH = COHTIHLE = = БЕШЕТ" 


PRIHT: IHPLT"HEZÉ";H&: IFH$z"-"THEHT 


ROTO IPD po Pi Дз ва e ae 


2 GOSLE4A: ТРЕРУТНЕНРРІНТЕЕФ : GOTOZZELSEPEIPT"DECÓ-";D 
4 О=ТНКЕТФ : D ESIMEEYS: 1ЕП®=""ТЫЕНДА DTE 
б IFDB-"-"THEHT 
б IFGSsCHESC I23THEMZZ 

су (QGUTÜZ4 

CL 
ЕРІНТ" DECIMAL TO НЕЗЕОЕСІМЕІ.! 
PRINT" RETH = CONTIMUE - s ABORT" 


PRINT: IHPUT"DEC&";HN 

TE [FHEBOUEHISSS3STHEHPRIHTERS$-GOTUz1 

22 FORTH=1704: GOSUG46 : HENT 

34 PRINT" HEN#= "GH 

35 НФ="" 

Os IHEET:GS-IHEEYE:IF2OS-""THEHDZE 

IFigz"-"THEH? : ope 
22 IFGb-CHRESGI133THEHZ1 

та GOTI “ай” 
46 ЕР=: =й: Ни ЕН Hf 20: IFLHZ S4THEHASR 
M Өлі АНЫН д o -HIDSCH$, 1%. 1 5 

42 =" 0" SH ippa а" DRE sn 1 =e "ги зт; EST EDS 
45 JXeRGCCBS2-45: IF Jx>ƏTHEN ыт Бөз "F нымды 
44 D=D#16-+._ НЕЗТ:РЕТМШЕН 


S ЕЕХ-І:БЕТМЕН 
47 ReIHTCHz18 1: ZH- LEER: HisMIDSCHS £217. 1 22$: M= RETURH 


ЕТІ Nw зо JA 2 3 


David Maunder, 
Quirindi, NSW. 


gen МЗӘНСЕР, 


Greg Baker explains how 


EAM HEADINGS 


Directional beam antennas are useful 
for CBers and SWLs alike. Greg Baker 
describes а simple home computer 
program to tell you where to point 
your beam. 


With the freeing of the rules on CB 
antennas, the use of directional beams 
has become an option to push a bigger 
signal just where you want it. The prob- 
lem, of course, is to know exactly 
where to point the beam when you 
have it set up and connected to your 
transceiver. 


Browsing through a road map or at- 
las will give you some idea of where to 
point, but, if your beam is efficient 
(which means that it will have a narrow 
directional lobe) or you want the big- 
gest possible DX signal, a great deal 
more precision is needed. 

That precision can come from mess- 
ing around with a calculator and set of 
formulas, but, it can come far easier 
come from a home computer...and 
now that we all have computers or ac- 
cess to them, there's no excuse not to 
be spot on with your beam headings. 

So, push the kids off the computer 
for a couple of hours and tell them to 
kick a football around the yard instead 
of playing computer games. Then type 
in the program listed over the page and 
run it on your favourite DX targets. 

It you and the machine can t get on, 
call the kids back. They'll love to lord it 
over you and tell you what to do. Let 
them enjoy it, it's good for them. They 
can have the ego trip....all you want are 
the headings. 


PROGRAMMED IN BASIC 

The program is written in BASIC, the 
standard home computer language. 
There are no fancy features used, so it 
should run without modification on 
most machines. It has been developed 
and tested on the Dick Smith VZ200. 

As it is listed, the program assumes 
you are in Sydney. If your base station, 
or mobile for that matter, is elsewhere, 
replace line 40 with your latitude in 
((1,1) and longitude in L(2, 1). 

Remember the sign on the lati- 
tude. 

Remember also that latitudes and 
longitudes are the usual way to pre- 
cisely locate a place on the face of the 
earth. Latitude is the number of de- 
grees north or south of the equator run- 


. CB ACTION JANUARY/FEBRUARY 1990 — PAGE 17 


ning from zero at the equator to 90 
degrees at the poles. Longitude is the 
number of degrees west or east of the 
north south line running through Green- 
wich in England. 


PROGRAM: 

10 DIM L(2.2),D$(2) 

20 0$(1) = ‘ORIGIN’ 

30 0$(2) = ‘TARGET’ 

40 L(1,1) = -33.9 : L(2,1) = 151.2 
50 E = 57.29578 : PI = 3.14159 
60 PRINT 'NEW ORIGIN? Y OR N' 
70 INPUT Y$ 

80 IF YS <> 'Y' THEN 110 

90 K= 1 


100 GOSUB 350 

110 K = 

120 GOSUB 350 

130 Р = L(2,1) - L(2.2). 
140 PS = 1 

150 IF P < O THEN Р5-0 
160 P = ABS(P) 

170 PM = O 

180 IF P > 180 THEN PM = 1 
190 P = P/E 

200 PA = (90 - L(1,1))/E 
210 РВ = (90 - L(L,2))/E 


220 Z = COS(P)*SIN(PA)*SIN(PB) 
+COS(PA)*COS(PB) 

230 GOSUB 460 

240 KM% = 6366.7 * M 

250 Z = (COS(PB)-COS(PA)*COS 
МИСРА RE ІМ) 

260 GOSUB 46 

270A = M * 20 

280 А% = ABS(360 * (PS-PM): * 
(PS-PM) - А) 

290 PRINT ‘BEARING IS: ‘; A% ;' 
DEGREES' 

ЗОО PRINT ‘DISTANCE IS: '; KM% ; 
‘KILOMETRES’ 

310 PRINT ‘CONTINUE? Y OR N’ 
320 INPUT Y$ 

330 IF Y$ <> 'Y' THEN END 

340 GOTO 60 
350 PRINT DS(K);' LATITUDE?’ 
360 INPUT L(1,K) 

370 PRINT DS(K); “ LONGITUDE?’ 
380 INPUT L(2,K) 

390 FORI = 1 TO 2 

400 T = 90 + (I-1) * 90 

410 IF ABS(L(I,K)) <= T THEN 440 
420 PRINT 'ERROR: TRY AGAIN” 
430 GOTO 350 

440 NEXT I 
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450 RETURN 


460 М = - ATN(Z/SOR(1- Z * 2)) + 
PI/2 


470 RETURN 


USING THE PROGRAM 

When you RUN the program, it will 
ask you whether you want to change 
the origin latitude or longitude. If you 
are mobile or a friend wants to use the 
program from his location, you can 
temporarily change the origin here by 
typing Y and INPUTing the new latitude 
and longitude. Otherwise type N to 
continue. 

The program then asks for latitude 
and longitude of the target. Type in the 
target latitude and longitude using the 
list below. Remember to type in the 
minus sign for latitudes from the list. 

If the target you want is not in the 
list, turn to an atlas or gazetteer (list of 
place names) and look up the latitude 
and longitude of the target you require. 

The program will function to and 
from places other than in Australia, so 
if you want to listen in to what is hap- 
pening elsewhere, use the latitude and 
longitude of the place you are interest- 
ed in. 


DON'T FORGET THE MINUS 
MARK 


Make sure all places south of the 
equator, ie southern latitudes, are 
input with a minus sign in front of 
them. Northern latitudes are posi- 
tive and thus require no sign. 


ORIGIN 


Sydney 
-33.9,151.2. 
Whyalla 
-33.0,137.6 
Geraldton 
-28.8,114.6 
end of chart 


: TARGET 


-Lismore 

..-28.8,153.3 
Adelaide 
-34.9,138.6 
Brisbane 
-27.5,153.0 


Similarly; places up to 180 degrees 
west of Greenwich in England should 
have a negative sign. All DX targets in 
our region are east of Greenwich and 
hence are all positive numbers and 
need no sign. 

You will need to convert the lati- 
tudes and longitudes you have found in 
your atlas or gazetteer to values which 
this program can use. Notice that the 
latitudes and longitudes from an atlas 
or gazetteer are written in the form of 
degrees and minutes. Convertthese by 
dividing the minutes by 60 with a calcu- 
lator and adding to the degrees. Thus 
Grenfell in N.S.W is 33 degrees 54 
minutes South, 148 degrees 11 
minutes East. The latitude to use in the 
program is 33 plus (54 divided by 60) 
which equals 33 + 0.9 or 33.9 and this 
becomes - 33.9 when you add the neg- 
ative sign for the south latitude. Similar- 
ly, the longitude is 148 plus (11у60) = 
148 + 0.1833 = 148.2 when you 
round it for ease of INPUTing. 

WARNING: The program may 
produce errors if your chosen target 
is within about fifty kilometres of the 
origin or you want to see if there is 
anyone at the poles calling СО DX. 

Still, in either case you wouldn't 
need this program anyway. Up to fifty 
kilometres you don’t need the preci- 
sion of this program, and for that lone 
СВег at the pole, just point your beam 
due north or south. And even then 
DoTaC rules mean you won't be al- 
lowed to reply to that plaintive call for a 
ragchew from the wilderness. 


TEST DATA 

When you have typed the program 
into the computer and double-checked 
that you have typed it properly, you 
should test it on the following DX 
paths. Note that for each of these you 
will need to change the origin latitude 
and longitude where the program re- 
quests it. You will also need to re-RUN 
the program for each new origin. This 
involves, at the end of each test path, 
typing N when asked if you want to 
continue. Then start again with another 
RUN. 


HOW TO USE THE BEARINGS 

The program will output the true 
bearing of the target from the origin 
and the distance in kilometres. 


BE DISTANCE I: 
(Kms) . 

19 . 600 — 

156 


BEARING 
(Degrees) 


230 
97 3748 ' 


Ifyou didn't gettheseresults, you 
will find a typing error in your 
program. 


2.003. 


The distance is useful in finding out - 


whether the target is within the cover- 
age of the ground wave, in the blank 
area within the skip zone but outside 
the ground wave coverage area or in 
useful DX range beyond the skip 
distance. 

The true bearing differs from a mag- 
netic bearing given by an ordinary com- 
pass апа it differs by different amounts 
depending on where you are. The dif- 
ference is called the local magnetic 
variation though sometimes it is called 
declination. 


To find the magnetic (compass) 


PLACES AND THEIR LATITUDE/LONGITUDE 
Longitude 


Place Latitude 
A.C.T. 2 
Canberra -35.3 
NEW SOUTH WALES 
Albury -36.1 
Armidale 
Bathurst ` 
Broken Hill 
Dubbo. 

Goulburn 
Grafton: 

¿Lismore ~ 
Lithgow 
Newcastle 
Orange 
.Sydney 
Tamworth 
Taree 
Wagga . 

Wollongong 


d — A LA ف‎ К LA nA uh 
о 5ononob5ogogoudu А 
ONNS 2 OS OUND 1D. 
WRRONNANWON 


, VICTORIA 
Ballarat 
Bendigo 
Geelong 
Hamilton 
Horsham 
Melbourne 
Mildura 
Morwell 
Shepparton 
Wangaratta 
Warrnambool 


QUEENSLAND 
Brisbane 
Bundaberg 
Cairns 
Gladstone’ 
Gympie 
Mackay 
Maryborough 
Mount Isa 
Rockhampton 
Townsville 
Warwick 


SOUTH AUSTRALIA 

Adelaide | -34.9 
Mount Gambier -37.9 
Port Augusta -32.5 
Port Lincoln -34.7 
Whyalla ` -33.0 


WESTERN AUSTRALIA 
Albany Я 

. Bunbury 
Geraldton 


_ 
DOBRRE 


ONONNSP»I 
NOW=BAO 


= 
+ 


O0 n O NOW 


od E h e EEE 
NOOO OI A0 


лл‏ دا ہں Pb‏ ی 


W W W b O 
لہ اں یہ‎ O 0 


p 


Kalgoorlie 
Perth 


TASMANIA 
Burnie 
Devonport 
Hobart 
Launceston 


NORTHERN TERRITORY 
Alice Springs -23.7 
Darwin -12.4 


o 


bearing from the true bearing output by 
the program, subtract the magnetic 
variation at the origin station from the 
computer calculated true bearing. Ap- 
proximate magnetic variations are giv- 
en in the table of latitudes and 
longitudes below. 

Notice that when magnetic north is 
east of true north the variation is east- 
erly and given a positive sign. When 
magnetic north is west of true north (as 
itis in some parts of Western Austra- 
lia) the variation is westerly and given a 
negative sign. 

Regardless of the sign though of the 


Magnetic 


gne PREFIN/ 
Variation 


HINNESOTA 

| MISSISSIPPI 

| WISSOURI 

| МОНТАНА 

| NEBRASKA 

| NEVADA 

MEN HAMPSHIRE 
MEM JERSEY 
NEW MELICO 
NEW YORK 
NORTH CAROLINA 
NOSTH DAKOTA 
OHIO 
OKLAHOMA 
OREGON 
PENNSYLVANIA 
RHODE ISLAND 
SOUTH CAROLINA 
SOUTH DAKOTA 
TENNESSEE 
TEIAS 

{ЛАН 

VERMONT 
VIRGINIA — 
WASHINGTON 
WEST VIRGINIA 
WISCONSIN 
WYOMING 


М ao RU Ss ae л: 
55N2gouou-NA 


ف ف d d — — — үчү‏ — — 
هھ ف ۸ ف ف ر ف ل۸ ل۸ لم ف 


ف 


KGS GUATAMAMO BAY {KA-8) 
KGOR/S/T MARIANA IS. (0-27) 


= -. -à - -. 
=“"MoOn]0-0N0—2 


KH2/KG6 GUAM (0-27) 
KH3/KJ& JOHNSTON 18. 10-31) 
KH4/KMG MIDWAY IS. 10-311 


KH HAWAIT 18, (0-311 
KH7/KH& KURE 18. (0-31) 
KHG/KH& AMERICAN SANOA 
KHO/KW6 WAKE 18. (0-31) 
KP1/KC4 NAVASSA 18. 1НА-8) 


KP3/KS4/HKO GERRANA BANK 
КРА PUERTO RICO (А-8) 

KP4 DESECHO 18. (NA-80) 

Кта MARSHALL 1B. (0-31) 

КІ PANAMA CANAL ZONE (NA-7) 


2 pb 


KCb EASTERN CAROCINE IS. (0-27) - 


КН1/КВ6 AMERICAN PHOENIX 15. (0-11) 


KHSKP& PALNYRA/JARVIB 15, (0-31) ` 


KP2/KV4 AMERICAN VIRGIN 15. (NA-B) ~- 


variation, you must add it to the true 
bearing to get magnetic bearing. To 
find the variation at origin s other than 
on the list you will need to use the 
nearest from the list or check out a 
good army survey map at your local 
library. 

Align the beam with this magnetic 
bearing, remembering to keep your 
compass away from such large 
amounts of steel as your car. Once you 
have found the bearings Of your most 
usual DX targets, mark them near the 
beam so that you can easily align the 
antenna next time. 


т2шш тшдш 


(SHORT. LONG. KILONETRES 
PATH PATH (SHORT PATH) 


CENTRED. 
OW CITY: 


15017 , 
14982 
14984 

3622 
14459 
12740 
15738 
16493 
13223 

16561 
15981 
140 
15784 
14222 
12760 

` 10223 
16764 
15918 
14447 
15389 
14226 
13428 
16644 
16877 
12850 
15882 
` {52% 

14005 
4529 

- 15834 

TINIAN 5421 

5554 

APIA HARBOUR 524 

- 7435 

- Tu 2194 

7138 

HONOLULU B448 

М : 790% 

FAGATOGO 5200 `; Z: 

- 05.6 

А 15757 
18839 

- 15042 

BAN QUAM 15543 

- 16418 

KWAJALEIN 5364 

- j 14754 


255 
JEFFERSON CITY 24 
HELENA 2.7232 
LINCOLN 242 
“CARSON CITY t 238 
CONCORD 240 
TRENTON 244 
SANTA FE 245 
ALBANY 24 
RALEIGH - 254 
BISMARCK 234. 
COLUMBUS 246 
OKLAHOMA CITY 248 
. BALEN 231 
HARRISBURG 
PROVIDENCE 
COLUMBIA 
PIERRE 
WAGHVILLE 
AUSTIN 
BALT LAKE CITY 
MONTPELIER 
RICINOND 
OLYAPIA 
CHARLESTON 
. MADDISON 
CHEYENNE 


Bint Services produce a computer based 'beam heading list' 
which has both short and long path bearings to a/l amateur 
callsign areas — cost for the listing (which is based on the 
lat/long of your QTH is $15. 
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GAMES 
Nov/Dec83 
Dec. 83 
Feb. 84 
Jan. 84 
Apr. 84 
Jul. 84 
Jal. 84 
Jül.. 84 
Aug. 84 
Aug. 84 
OGE 84 
NOV. 84 
Jan. 85 

- 85 
Mar. 86 
_ 85 
Jan: 85 
Jan. 85 
Jan. 85 
Feb. 85 
Mar. 85 
Mar. 85 
Apr. 85 
Apr. 85 
May 85 
May/Jun85 
Jun 85 
Jan. 86 
Jül. 85 
Aug. 85 
OCE. 85 
өсе. 85 
Mar. 86 
May 86 
Jal. 86 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
= 88 
= 88 
Арт. 88 
Jul. 88 
Aug. 88 
Nov. 88 


Projectile Plotting (Grosjean) 
Missile Command. (Whitwell) 
Caddy and Reaction Test. (Hartnell) 
Graphic Sine Waves for VZ-200. 
(Nickasen) 

Moon Lander. (Alley) 

Blockout. (Pritchard) 
Battleships. (Carson) 

Junis Maths. (Carson) 

Contest Log VZED. (Carson) 

Dog Race VZED. (Carson) 

High Resolution Graphics Plotting. 
(Thompson) | 

Tips for 'Ladder Challenge', 'Panik' 
and 'Asteroids'. 

РОКЕ^& БӨ "Ghost Hunter”. 

Golf Simulation. (McCleary) 

Golf Simulation, (MeCcleary.) 
Knight's Cross. (Lucas) 
Sketcher. (Leon) 

Punch. (Rowe) 

Space Station Defender. (Shultz) 
Lost: (Potter) 

Decoy. (Rowe) 

Mouse Maze. (Crandall) 

Painter. (Daniel) 

Roadrace. (Thompson) 

Number Sequence. (Thompson) 
Sketchpad. (Thompson) 

Morse Tutor program. (Heath) 
Morse Tutor - again. (Heath) 
Electric Tunnel. (Daniel) 

Number Slide. (Daniel) 

Cube. (McMullan) 

Yahtzee. (Thompson) 

VZ Frog. (Alley) 


Balloon Safari, The Drop and Flatten. 


(Sheppard) 

Simon. (Proctor) 

Drawing Program. (Winter) 
Tea-pot Song. (Winter) 

Ping Tennis. (Duncan) 
Concentration. (Vella) 

Super Snake Trapper. (Duncan) 
Worm. (Thompson) 

Dogfight. (Thompson) 

Bezerk. (Banks & Saunders) 
Arggggh! (Banks & Saunders) 
Encode/Decode. (Banks & Saunders) 
Catch. (Banks & Saunders) 
U-foe. (Alderton) 
Disintegrator. (Stibbard) 
Star Fighter. (Roberts) 
Drawing Board. (Maunder) 
Camel (Maunder) 
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Plotting a Projectile 


David Grosjean 


In this issue we will compare pro- 
gramming the VZ200, the color and sound 
computer by Video Techonology, and the 
Т51000. The project we will undertake is 
the plotting of a projectile. 


Starting with a Clear Screen 

Let's start with a simple clear screen 
and plot statement. 

TS1000: 


19 CLS 
200 PLOT X,Y 


VZ200: 


5 CLS 
40 MODE(1):COLOR 4 
200 SET(X,Y) 

If you look at the VZ200 program, you 
will notice that the computer has to be 
put into a special graphics mode with line 
40. This means that you cannot have the 
medium resolution graphics and text on 
the screen at the same time. This will 
become a problem when we try to turn 
this into a game. 


The Projectile Equations 

The equations for the horizontal and 
vertical position of a projectile are: 
X=V*COS(A)*T 
Y=V*SIN(A)*T-1/2*G*(T*T) 

V is the velocity; T is the time; G is the 
effect of gravity. These equations can be 
worked into the program like this: 


22 LET U=1Q 

20 LET BEST 

40 LET A=4 

sa LET Erud ОРАМ! 

ea LET Піс ШАРА! 

ад FoR Tlp 44 STEP .5 
ай LET X=C 

Q LET YzC«T-16sTsT 


10 А=45 

20 V-10001G*»22 
50 D=57.3 

50 C=V&SIN(A/D) 
60 CizY£$COS(A/D) 


P 22-24, 


80 FOR T=O TO 45 STEP .5 
90 Х-СізТ 

100 YzCX*T-16XTXT 

180 Х-Х/250 

190 Ү-Ү/250 

220 МЕХТ Т 


Ав you will notice, the range оп the 
VZ200 increased due to the higher reso- 
lution of the graphics, but we did not 
change the velocity of the projectile. 
Instead, we changed the number which 
we divide X and Y by to fit the projectile 
on the different screen size. 

In these programs, D is a factor that 
converts degrees to radians which are 
what the computer wants. C and C1 are 
constants for each firing angle. When you 
RUN this program on the VZ200, you 
will notice that the plot is upside down. 
This is because the vertical distances are 
measured from top to bottom instead of 
bottom to top as on the TS1000. Change 
line 190 in the VZ200 program to 


190 Y-61-Y/250 


Setting the Gun Angle 
Now we can modify the programs to 
accept a gun angle from | to 90 degrees. 
TS1000: 
40 PRINT "ANGLE OF GUNT" 
45 INPUT A 
70 LET Тіз-гэс/З 
88 FOR T=Q TO Т 
220 GOTO se 


VZ200: 


10 INPUT "ANGLE OF GUN";A 
70 T1-22£C/G е 
80 FOR T=O TO T1 STEP .5 
230 GOTO 50 


Making a Game 

Now that we have a working, however 
simple, projectile program, let's try to make 
a game out of it. The following games are 
our projectile programs tightened up a 
bit and with the provisions fora target. | 


Setting up the Target 

On the VZ200 the range is 127,000 A 
and on the TS1000 32,000 yards (1000 
yards for every horizontal position on the 
screen). This will throw the equation off: 
a little since the gun cannot shoot the 
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projectile 127,000 yards. (If this bothers 
you, think of the yards on the VZ200 as 
11-inch feet.) 

Although there are 64 pixel positions 
on the TS1000, the target is а T which 
takes up two pixels. You can hit the left 
or the right of the T so the number of 
effective horizontal positions is reduced 
to half. Notice that, since the VZ200 cannot 
have text and graphics on the screen at 
once, line 100 forms a special target, while 
on the TS1000, a simple PRINT AT com- 
mand in line 60 does the same thing. 


Т51000: 


ze LET М=1@@@ 

+0 LET K=INT ‘20000 +8м21 +12000 
50 CLS 

Se PRINT = 32200 YES" 
ea PRINT INT (Rh lQQQ1 5 "T 
78 PRINT “ANGLE OF GUN? 


ЖЫРЫН; 


(ne conn ca 


©› сусу су б) C2 


ap Ren 


aed NEXT 1 | 


VZ200: 


20 V=1000 
40 K=INT (970003RND (® J ) +50000 


SO PRINT "RANGE = 127000 YDS" 
60 PRINT "TARGET AT"iK;"YDS" 
70 INPUT "ANGLE OF GUN";A 


80 IF А<1 ОК А>89 THEN 70 

90 MODE (1): COLORS = 

100 FORL=1 TO 4:FORL1i=1 ТО 4:SET 
(INT (K/1000-4) +L1,59+L) : NEXT: NEXT 


130 С-У%бІМ(А/57.5) 

140 C1=V*COS(A/57.3) 

150 Ті-2%С/32 

160 FOR Т-О TO T1 STEP .5 
170 X=C1+T/250 4 

180 Үс-б1-(Т%(С-16%Т) /250) 
190 БЕТ(%, Y) 

210 GOTO 210 


Detecting a Hit 

We now have,a target, but it is of no 
use unless the computer can detect its 
destruction. The following lines detect a 
hit. Notice how the techniques of detecting 
a hit target differ. The VZ200 must com- 
pare each position of the target, which is 
four positions wide, with.the last position 
of the projectile; the TS1000 does the 
same thing but uses the PRINT AT position 
used by the target to compare to the last 
position of the projectile. This is, of course, 
simpler. Line 300 in the VZ200 version is 
a special "explosion" accompanied with 
some sounds. You can experiment at this 
point to find a better explosion. 

TS1000: 


(каа) T 


ac б sa 
„PRINT AT 22, INT 


FAUSE 252 
` GOTO зе 


VZ200: 


220 FOR L=1 TO 4:1F INT(K/1000)- 
L=INT(X) THEN 300 


(RAMA -2; 


24 


2 of ¥ 


Е 225 NEXT L 
250 GOTO SO 
500 FORL-1 TO 30:SET(40+87#RND(O 
),40*«22X*RND(O)) :80UND31, 1: МЕХТ L 


510 PRINT "HIT! HIT! HIT!” 
340 GOTO 30 
Making the Next Shot 


Now we can add the response the com- 
puter will make to a missed target. The 
following lines tell how far away your 
shot was from the target and lets you try 
again. Line 210 in the VZ200 version is a 
delay loop so you have time to see the 
last position of the projectile. 


TS1000: 


iSeQ@@ESIN 1.2 


INT AT 8,0; 


AT а,е; 


VZ200: 
210 FOR L=1 TO 3000:NEXT L 


230 IF INT(K/1000) >X THEN PRINT 
“UNDER BY";K-X*1000; "YDS" 
240 IF INT(K/1000)<X THEN PRINT 
"OVER BY";X*1000-K; "YDS" 


Providing Your Shots 

The computer can now detect hits and 
misses. This is where the game part comes 
in. The following lines provide you with 5 
individual targets with a maximum of 5 
attempts to hit each target. If you fail to 
hit a target in 5 shots, you lose. S is the 
number of shots you have taken per target; 
$1 is your total number of shots; and Z is 
the total number of targets. 


THEN COTO 260 
ue 


“ENEMY GOT YO 


sse 


VZ200: 


10 51=0:7=0 

30 5=0 

55 IF S-5 THEN 260 

110 S=S+1 

120 51=51+1 

260 PRINT "THE ENEMY GOT YOU FIR 
ST!" 

270 GOTO 370 

320 Z=Z+1 ‚ 
330 IF 72-5 THEN 350 


Evaluation апа Restart 

Finally, we need an evaluation and a 
mechanism to restart the game. The follow- 
ing lines do this. 


TS1000: 
PRINT AT @,@;51;" ROUNDS US 
IF ®1‹1@ THEN PRINT “GREAT 
>15 THEN PRINT “you CA 
‘LAY AGAIN? © 
' THEN RUN 
350 PRINT Si;"ROUNDS USED" 
355 IF 51<10 THEN PRINT "GREAT J 
OB!" 
360 IF 61215 THEN PRINT "YOU СОЦ 


LD HAVE DONE BETTER" 
370 INPUT "PLAY АБАІМ"; 2% 
380 IF 2%="Ү" THEN RUN 


Improving on the Game 

Of course, these artillery-type games 
are very simple. They provide a basic 
game which you can elaborate on or 
experiment with to develop different pos- 
sibilities. You might want to improve on 
the graphics or sound on the VZ200 or 
perhaps make a really BIG explosion. 
Although the TS1000 has no color or 
sound, the program can still be greatly 
improved. You could add hi-res graphics 
through either a hardware add-on or a 
software program. You might want to add 
a sound unit which will give the sound 
effects or add a routine to provide some 
sound (e.g., AUDISY). 
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Missile Command 
by Keith Whitwell 


G: LEFT 
H: RIGHT . 


This is the first program we've received 
for the VZ-200 and its from someone 
who's only in grade 8. It is a Basic version 
of the famous arcade game of the same 
name and uses the following keys for 
control of the "cross-hairs": 


F: FIRE 
U: ACCELERATE 
N: STOP 


Other instructions are included in the 
Y: UP elu. š : 5 
listing. 


B: DOWN 


REM MISSILE COMMAND, KEITH WHITWELL, EF. SPLC, 31/10/83 
CLS:PRINT" BESINI ИПИЕ" PRINT 
PRINT " BY KEITH WHITWELL, SF, SPLC.":PRINTTRBC 13271983" 
PRINT:PRINT 
PRINT: INPLIT" INSTRUCTIONS"; AS: IFLEFTSCRS, 1 52" Y" 
THEN 50518 3400 
INPUT"LEVEL ОҒ SKILLC1 (V.HRRD2-45";LS:IF 1524 OR L541 THEN 5 
FOR I=1 TO 4:C¢1)=1:NEXT 
GOSUB 2000 
A=63:K=32:S=¢ 
МОРЕ 1 >:COLOR 4,1 
М1=й 


D< 
MH H 
on 

= 


осо 
ON 


ETS XM, INTCYDD:Y=Y+, ASIF INTC Ye 


z 7) € 
2 = =: оз 

m 

22, 


С OLOR 6: 
XA-R:Y-K 
НФ-ІМКЕҮФ 

A$= " Үү " 
R$- " E " 
Ag="H" 
A$= 5 " 
В%= " F " 
A$= " L " 
A$= " H " 
X*tM»1200R Y*N? 
COLOR 1:GOSUB 1 asa: 
COLOR 4:FOR I=1 TO 4: 
:IF J=@ THEN 2-1 
IF ХС12+7<5 OR Х612%12120 THEN J=-j 
XC I =k I 2+ 
P=POINT СЖІО,ҮСІУУСІН P=4 THEN COLOR 4:GOSUB 1200 
IF P=2 THEN COLOR 4:GOSUB 1500 
| COLOR 3: SETC XC I5, ¢ I22: COLOR. 4 
NEXT 
GOTO 194 


СИЕ 
ЛЕЛ 


XX mmo Jl DD H 


А+ 
ер 


Dm.. 
m 


:GOSUE 1190 
1360 


Ua I I N 
BOAT | кк | 
“. 


e - 
x =o 2: Z: 


ZAQOBZAZZZ 


wou 


5 ОК Х+М<5 ТНЕММ-0:М-й 
Y+N: COLOR 2:GOSUB 1050 
12+1: -ЕМОС 29-2: 


тш 


es 
ALNA 


A.F.C. Dec. 33. A(ia) 161-18 
l. of 2. 


DRTR1,12,1,1.13.2,15,17,2.1.13,3,16,16,3.1,7.4.3. 
12,4.4.7.5 > 
DATA 9,12,5,4,7,6,9,12,6,5,6,7,10,11,7,10,11 
CH=CH+1: IF СССМО-й THEN RETLIRN ELSE 5С-5С%10 
COLOR 6:FOR 1=1 TO 14:RERD R.T," 

FOR H=R TO T:SETCX*H, Y-V 3: NEXT: NEXT : RESTORE : COLOR 4 : RETURN 
FOR H=-1 TO 1:SETCX*H, Y*12:SETCX*H, 77-12: NEXT 

SETCX.Y-120: СЕТА, Y+1 3 

RETLIRH 

REM 

КОБЕ TO 4:IF ЖХ11Х<Х85 AND XC1>>X-LS THEN 1103 

NEX 

IF YCIOXY4LS AND YCIÓ2Y-LS THEN S=S+1:SET(S.62):GOTO 1110 
RETURN 

IF S=SN THEN R-X:KzY:GOTO 2200 

FOR E=1 TO S:SET CXCIO-E,YCIDD:SETCXCIO«E. ҮІ) 

SETCXC I2, YC 12-E >): SETCXCIO, YC I +E 2: NEXT 

XC I D=RNDC 110 2+6: Y< 1226 

IF M=-1 THEN М--4 

IF M=1 THEN M=4 

IF N=-1 THEN N=-4 

IF N=1 THEN N=4 

RETLIRN 

IF X€1)<2@ THEN C(1)=0 

IF Х<12>33 AND х<12<53 THEN CCc2»-a8 

IF X£19>66 ANC Х<12<86 THEN С(СЗ32-0 

IF XC 122100 THEN C64 >=@ 

FOR C=1 TO 4: IF ССС =@ THENF=F+1 

NEXT 

IF F=4 THEN GOSB 1200:GOTO 2100 

F=@:GOTO 1200 

FOR I=1 TO 4:XC I»-RNDC 110245: YC 1 D=RNDC 5 2+6: NEXT 

RETURN 

FOR F=1T03@: < I >=РМО 1805410: C I22RNDC 40 2+9: GOSUB 

1200: HEXT 

5Г-5С%5 

FOR I=1 TO 18800:NEXT:CLS:PRINT864, "MIAH" SC 

IF ©С>Н5 THEN PRINT "МЛ: CII В 8:198 ВЕӨН: МА ВЕТ :HS=S 
PRINT :PRINT"58G8SEZSAIIBORES T2232 (ETE LL PIE 4114" 

IF INKEYS="S" THEN 1 

GOTO 21280 

FOR 0-1 TO. SL-1 

FOR I=1 TO 4:IF С‹1)=0 THEN CCI 9=1:1=9 

NEXT: GOTO 18 

CLS:PRINT" BESSI MPRI" 

PRINT:PRINT"YOLI COMMAND OLIR RNTI-MISSILE 

MISSILES. YOUR"; 


PRINT" JOB IS TO KEEP THEMISSILES FROM LANDING ON THE " 
PRINT"CITIES BY MOVING YOUR SIGHTS ONTO THE HERD OF "; 
PRINT"ONE ОҒ THE FOLIRMISSILES COMING DOWN AND PRESS "; 
PRINT "'F*, WHICH FIRES YOUR MISSILE. 

IF IT HITS, THEN "; 


PRINT"THE MISSILE WILL EXPLODE." 


PRINT: INPLIT "HIT RETURN": AS 

CLS:PRINT" P9083 МГ ІШ": PRINT 

PRINT" Y Wa" 

PRINT" B 1009181" 

PRINT" - G Шалт 

PRINT" H |н" 

PRINT:PRINT" Е зз" 

PRINT" | Плач" 

PRINT" N Fac" 

PRINT:INPUT"HIT RETURN"; AS 

CLS:PRINT" iB EEN Mags" : PRINT 

PRINT "SCORING IS:" 

PRINT" 1 POINT PER MISSILE DISTROYED" 

PRINT" 10 POINTS PER CITY МОТ BLOWN UP" 
PRINT:PRINT"'OL! HILL GET EXTRA CITIES EVERY" 
PRINT"SCREEN. THE NUMBER DEPENDS ON THE LEVEL OF SKILL." 
PRINT:PRINT"THE GAME ENDS WHEN ALL OF YOUR CITIES ARE"; 
PRINT" DISTROYED" 

PRINT: INPUT"HIT RETURN"; AS 

RETURN 
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VZ200 


омсам DRONE NOOR III HEE ХУ 


Two games 
to key in 


The following programs are reprinted 


with the permission of Dick Smith. 


Electronics from Getting Started (on the 
VZ200), by Tim Hartnell and Neville 
Preteborn. 


Getting Started and another four. 


books written especially for the VZ200 
are now available in New Zealand from 
Dick Smith Electronics and its dealers. 


Out on the Fairway 

A golf game called Caddy. You have 
nine holes to negotiate, as you'll see 
when you play the game, the computer 
obligingly keeps the score card for you. 
After each hole, it will tell you how you 
are doing to date, and will work out your 
average score per hole. All you have to 
:do is hit the ball! if you overshoot, the 
computer will automatically make sure 
-the next shot is back towards the hole. 
You'l find it pretty tricky going, 
-especially on holes with a high difficulty 
factor. 
Here's the listing, golf pro: 


| 
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EE SSIES Н ККУУ УГ Г Г ГГ ГГ ГГ ГГ "ГҮҮ ГҮҮ НИ 


REM CADDY’ 

DIM Х(9) :С0=0: НФ= СНЕФ (216) 
U=224:L $=" 

FOR 2-і ТО 9 


50 SC=0 


SQQ 
7310 
520 
SS 
540 
S50 


560 


7576 
380 


590 


400 
410 


20 


) FRINT: INPUT 


J=RND (12) 

Q-RND (5) +2 
IF Q= 
IF @=4 THEN Q$="FDUR' 
> IF ü-3 


S THEN O$-"FIVE' 


THEN 0%-"ТНКЕЕ" 
CLS:FRINT: PRINT 
IF Z=2 THEN. PRINT “SCORE UF TO THIS 
HOLE ISX Uh) 
THEN FRINT “SCORE UF TO THIS 
HOLE TS" 
HOLE NUMBER" Z" >>>" 
"DIFFICULTY FACTOR IS 


IF za 


PRINT "<<< 
PRINT: PRINT 
GOSUE 430 


"OS 


“ENTER STROKE STRENGTH" 
зА: SOUND 31,2 

PRINT3U,L£$:1IF 2>24 THEN ñ=-ñ 

J=J+INT(A/RND (Q?) 

IF 2-24 THEN GOSUB 490 

IF J230 THEN Ј=50: БОТО 

IF 051 THEN 4-і 

IF. Js 524 THEN FRINTƏU+J-1, H$ 

IF ЈЕ 224 THEN FRINT3252,L5: FRINT L$ 

Әб SC+1 

FRINT2448, 


zo9 


"AFTER THAT STROKE YOUR 
SCORE IS'"SC 

FOR Е=1 TO 2500:NEXT F 

IF J<>24 THEN 110 


C=C+SC 
Х (2) =5С 
чо Е 1 THEN 590 
к= 
ee “THE GAME SO FAR: " 
FOR J=1 TO Z 
K=K+X (J) 
PRINT. "HOLE"J" TOOK JUST" X (J) "STROKES" 
FOR M=1 TO 500: МЕХТ М 
NEXT J 
IF 7<9 THEN FRINT: PRINT "THE ONERE 50 


FAR IS"INT((K+.5)/Z) 

FOR Р=1 TO 1000:NEXT Р 

IF Z>1 THEN PRINT:FRINT 
Z"HOLES IS"C 

IF 72-1 THEN PRINT:PRINT "THE SCORE FOR 
THE FIRST HOLE IS"C. 

FOR M=1 TO 2500: МЕХТ M 

NEXT Z 

GOTO 560 


"THE SCORE FOR" 


у2200 


4393 FRINTS196,"' 


480 RETURN 


S00 РКІМТӘ511,Н% 


550 RETURN 


590 PRINT: PRINT 

600 PRINT "ENTER "Y" 
“М: 

610 A$-INKEYS 


640 FRINT:FERINT "Ok, 


Testing your Speed 

Reaction Test, is great fun to play. You 
enter the program, type in RUN, and the 
message STAND BY appears. After an 
agonising wait, STAND BY will vanish, 
to be replaced with the words, ‘‘OKAY, 
HIT THE 'Z' KEY!''. As fast as you can, 
you leap for the Z key and press it, 
knowing that the computer is counting 
all the time. 

The computer tells you how quickly 
you reacted, and compares this with 
your previous best time. “THE BEST SO 

-FAR IS. . .” appears on the screen, and 
the computer than waits for you to take 
your hands off the keyboard before the 
whole thing begins again. 

The game continues until you manage 
to get your reaction time to below 10, 
which is not an easy task. 

Line 20 sets the variable HS to 1000. 
The variable C is set to zero in Line 50 
and incremented by one every time this 
line is revisited, which occurs when you 
have not managed.to get to the 'Z' key. 
Lines 55 and 60 check to see if you have 
touched the Z key, and if not, send the 
program back to 50 where C is 
incremented. 

Once you've managed to get to Z, the 
program 'falls through' to line 65 where 
you are told your score. This is compared 
with the best score (variable name HS) in 
the following line, and HS is adjusted to 
C if C is the lower of the two. 

The next line (80) puts in a short 
pause, and then checks to make sure you 
have taken your hands off the keyboard. 
It stays cycling through 80 and 85 until 


ххх бас LOIN IRIAN ОООО AAA АХА ААА DELAY LPR ISIL SLT OI FINI LL IOP ODOREM SPP PRPS L DII 03. kwa sa 


430 IF 4>50 THEN 4-50 


440 PRINT TAB(J-1);:H$ 
450 РКІМТ "SZHHHBBHHHHHHSTAHHHHZHSHHN. /HHHHHHO 
460 РКІМТ "HHHHHHHHHHHHHHHHHHHHHHH HHHHHHH 
4 7 O F R I N T MA ons ura urs utn, OC) urn un, arn ЦК 


CLE DECORE T1 


490 FRINT2416, "YOU DID IT!i" 


5109 FOR F=1 TO 500: МЕХТ P 
520 SOUND 21,4: SOUND 16.2: SOUND 16,1: 

SOUND 18,4:S0UND 16,4 ` 
550 SOUND O, 1: SOUND 20,4:S@UND 21,4 
540 FOR F=1 TO 2000:МЕХТ F 


S60 РКІМТ:РКІМТ "END OF THAT ROUND, GOLFER!" 
570 PRINT:FRINT "YOU SCORED"C 
S80 PRINT "AND YOUR AVERAGE WAS"INT((C*.5)/9) 


FOR ANOTHER ROUND, ÜR 
AU) LIT 


620 IF А%<7> "Y" AND АФ > 
650 IF А%="Ү" THEN RUN 
THANKS FOR 

FLAYING, CHAMF" 

you take your hands off the keys. The 
NEXT W then sends the program back to below 11, the program continues 


through the NEXT to line 15 where the 
words “YOU'RE THE CHAMP!” appear 


the line after the FOR (line 15) and the 
next round of the game begins. 


as HS stays greater than 10 (as you can 


"N" THEN 610 


on the screen, and SOUND 31, 
activated. . 


s REM - REACTION TEST — 

TCLS 

10 LET HS=1 000 

15 FOR W=0 TO 999: IF Н5<10 THEN 90 

20 FRINTJ236, "STAND BY" 

25 .GOSUB 105 

50 GOSUB 100 

-355 IF A$z»"" THEN 25 

40 LET C=O 

. 45 FPRINT9134, "OKAY — HIT THE "Z^ KEY!" 

50 LET C=C+1. 

55 GOSUB 100: IF C}=200 THEN GOTO 90 

60 IF А%<>"7" THEN 50 | 

65 FRINT: FRINT "YOUR SCORE IS";C 

70 IF CHS THEN LET HS-C: SOUND 50,2 

75 PRINT: PRINT "THE BEST SO FAR 15"; Н5 

80 GOSUB 105: GOSUBR 100 

85 IF АФ“>"" THEN 80 

90 NEXT W 

95 FRINT: PRINT "YOU^RE THE СНАМЕ!": 
SOUND "51,5: END 

100 LET AS=INKEY$: RETURN 

105 FOR FzO TO 499+RND(999): NEXT Fs 
CLS: RETURN 


The FOR/NEXT continues only so long 


2 s 2. 


see in line 15). Once you get a high score 
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Graphic Sine Waves for VZ200. 


By Dean Nickasen, Murrumbeena, VIC 


This program will draw sine- 
waves in the graphic symbols of 
the VZ200. Lines 10 to 90 input 
the values for the sinewave. 
Lines 100 to 200 plot the graph. 
The purpose of line 210 is to 
keep the computer in the graph- 


To modify the program for 
other computers, lines 100 to 
200 will have to be changed. In- 
stead of setting points, a PRINT 
TAB(Z) statement will work. The 
program will also work on the 
VZ200 in this manner. 


ics mode. 


REM GRAPHIC SINE WAVES 

REM BY DEAN NICLASEN 

REM SEPTEMBER {983 

CLS 
PRINT" ENTER THE LOWEST LIMIT FOR X";:INPUT A 
PRINT 

PRINT" ENTER THE UPPER LIMIT FOR X";:INPUT B 
PRINT 

PRINT ENTER EXPANSION AND SHI 
MODE(1) 

FOR Х=А TO B 5ТЕР(В-А)/80 
Y=2¥COS (4x X=. 349)+ 3XSIN(2*X4 1. 309) 
ZeExY+S 

IF 2)127 OR G>63 THEN 210 

COLOR 3,0 

SET(S+40,G) 

COLOR 2,9 

SET(Z+40,¢) 

б=б+1 

NEXT X 

GOTO 210 


"ssINPUT Е,5 


УС Jan, 34 р és. 


This program is an arcade-type game for 
the У2-200, and is fashioned after the 
video game of the same name. The aim is 
to land as many times as possible on the 
red landing pads provided without run- 
ning outof fuel or crashing into the rocky 
landscape. The keys Y, G, and H are used to 
. control the various motions of the ship. 
The main outline of the program is 
as follows: 
Line numbers 90 to 140 clear the pre- 
ceding screen. 
Line numbers 220 to 445 draw the 


5 REM: 


7 REM: 15 FEBUARY, 


10 CLS:PRINTO198 ОЛ 
20 PRINT@26L, "fa oer 
30 PRINT: PRINT: PRINT: 

90 CLEARS : DIMB(254) : MODE (1) :SO0=28671 :SU=3:GOTO0220 


100 
105 
110 
120 


Moon Lander 
by A Alley 


landscape and landing pad. 

Line numbers 500 to 620 handle actual 
game play. 

Line numbers 1000 to 1260 detect 
landings and crashes and take the 
appropriate course. 

Line numbers 1400 to 1420 draw the 
ship. 

Line numbers 1900 to 2020 are the 
subroutine to display the score, 
number of ships remaining and so on. 

Line numbers 3000 to 3190 are 
instructions. 


++ *MOON a ** BY ANDREW ALLEY 
199! 


IFDO4»OTHEÉNS] =51 «INT(FU/5) :GOSUB1 900 
COLOR3: FORX=2T0253:SET(X/2,B(X) ) : NEXT 
FORX-0TO21 : SET ( (Q*X) /2, R) :SET ((Q*X) /2, R*1) : NEXT 
FORY-'(Q)TOR-1STEPSGN(R-1 
FORYZR(Q*21 утар-1 STRPSGN(R-=1 


A=0:B=0: DO=0: COLOR2 :2 GOTO2/,0 

TO OPEP отор т T€ 
РОГЃТ= 3051170300 5098 TEP32 : READU: oT, Us Mts 3 
FOi"I'aOT09: ORUZOTO!: READSC (qu. U): NEXT : NEXT : COT,OR2 : GOSUB2000 
Y=RND(13) +32: FORX=2T0253: Y=Y+RND(3)-2: IFY(20, Y=20 


TEY 250 у= 


0 
B(X)zY:5ET(X/2,B(X)) : NEXT ғ " 
Q-RND(220) :R=B(Q) *5: FORX-OTO24 : COLORS 


SET ((Q*X)/2, B(Q*X)) : COLOR4: SET 


NEXT 


COLOR2:FORYZB(Q)TOR-1STEPSGN 
FORY=B(Q+24) TOR-1STEPSGN(R=1=B(Q) ) sSET(Q/2 , Y) : NEXT 


FORY-20TO63:RESET(0O,Y):RESET(127,Y):NEXT 
COLOR : FORT268T0O102:SET(T , 60) : NEXT 


X=25944 : FUZ 25 


L T2164: RT226 : BL=1 06 : BR=169: P#=INKEY$ 


IFPt="Y¥"ANDFU)O, A=A-32: BL=107: BR=233ELSEA=A+32:C.0TO550 
FU=FU-1 : POKESO, 10: POKESO, 11: ІҒА<-96, А=-96 


IFA) 96 , A=96 
ІЕР% 


="G" ANDFU)O, B-B- 


FUZFU-.5:IF54-1,B--1 


АРС Ар» $4 


.2:RT=31 : POKESO, 10: POKESO, 1 1ELSE570 


SG) .صم‎ 9# 1% 


Care should be taken when piloting the 
space ship as it will drift after being 
moved in any direction. At the end of 
each successful mission, bonus points 
will be added to the score. It should be 
kept in mind that a player need not land 
on each landscape; he may simply thrust 
upwards to the top of the screen and 
another landscape will be drawn up. An 
extra ship will be awarded at each 100 
points. 


-B :SET(Q/2, Y) : NEXT 
(Rasen) desir C (Q«28)/2,Y) : NEXT 


((Q+X)/2,R) :SET((0*X) /2, R*1) 
(R-1-B(Q)) :SRT(Q/2 Y) : NEXT 


fof 2 


" 570 ЛАТ: B=B+. 2: LT=244: POKESO, 10: POKESO, 11BLSE585 
~ 580 FUZFU-.5:IFR)l,B-1 
(= 585 FORX1=XTOX+1 28STEP32: POKEX1, 170: POKEX1+1,170: NEXT 
: 590 X=X+A+B:FOR X1 =XTOX+1 23STEP32 
600 IFPEEK(X1)4»1700RPEEK(X1 *1)4 9170, 1000 
; 610 МЕХТ:ІГХ(28800,100 
& 620 GOSUBT 1,00: RES PT (FU+68, 60) :GOTO520 
à 1000 IFPREEÉ(X1)4»2 55ОВРЕЕК (X1+1)€)255, 1050 
* 1005 TPA>44,1050 
= 1010 DO=NO+t: IFDO<91, 1040 
4 1012 IPPREE(X4128)4 91 700RPERK (X+129)£9170, X-X-32:00T01012 
1020 GOSUR1 400: POKEX+1 , 74: POKEX=31 ,120: POKEX-652,128 
i 1025 SOUITDA, 5: SOUND! 1 E SOUND16, 5:S0UND20, 3:SOUND19,6 
; 1027 POKEX-31,170: POKEX-65, 170 
1030 51-51-5: FPORX1=XT0X+120STEP32: POK™X1 ,170: POKEXI +1 ,170: NEXT 
1040 GOSUR1“00:IFFU4=0,1100 
` 1045 X=X-32:A=0:B=0:GOTO590 
` 1050 IFPREK(X1 )=42ORPREK(X1+1 )=168, X=X-B: B20: GOTO590 
; 1100 G0OSUB1400::ORT21708:E(T) =X+32+ INT (T/4) : F(T) ZRND(2)*22 
£1105 n(T)z(T-A4)*, 1: NEXT 
1110 FORT1=17012: FORT=1T03: POKEE (T) , 170: E(T) -E(T) -F(T) «G(T) 
° 1120 РОМЕ") ,190: POKESO,10: POKESO, 11 : NEXT : NEXT 
. 1125 rORTZ1TOO:POKESO, 10: POKESO, 11 :FORT1 =1 T01 5: NEXT: NEXT 
' 1220 FORT: XTOX+1 23STEP32: POKEX1 ,170: POKEX1 *1,170: EXT 
. 1230 FOl'?21T08: POKRE (T),170: NEXT : SUZSU-1 
1250 TFSU -20,G0801900; FORT=1T02000: NEXTRLSE1260 | 
` 1252 POT 2236 , AMEVAA : PRINT: PRINT'SCORE" ;S14£22*10*82*100 
1255 SOUND12, 38:PRINT: INPUT"ANOTHER GAME"; At: IFAS="Y", RUNELSEEND 
1250 GOSUR1900:G0T0100 
+ 11,00 POXEX,165: DOKKX-1 , 90: POKEX+32, 144: POKEX+33,6:POKEX+64,LT 
` 1110 POF RX 4455 RT: РОКПХ+96 ,152: POKEX+97 , 33: : POKRX+128, BL 
41,20 DOPTRX+129, BR: SETURI 
: 1900 TPS1)9,S1=S1-10:S2=S2+41 :GOTO1900 
1910 msi $2-10:53=S3+1 :SU=SU+1 :GOTO1910 
1920 IlS3)°,53=83-10:C0TO1929 
i 2^00 Taal POP SóSooTosOG STEP3A: I-I-41:POKEH.SC(S2,1) 
i 2010 norkID-1,56(52, T) z POKEIT22,8C(51 , T) 
| 2020 nn; 1+5, SC(SU, T) NeXT sRETURN . 
2405 DAMAS 942 10, п, 12, i ,102,102; 102,86 415440019) 
; 5900 DAMATSH, f С 86,1 665. B6 102.85; 56,12 É 150. 166: ae 108; 102,86 
i 2505 Dama SG, 165, 85,106; 92 166, 86, 86,106,86,102,86,86,102, 156 
12510 DATAIG6,156;: 76, 102, 95; P102. 56 854102, 86.166, 106 
4 3000 GT өрт? тат лту( с)! TIA TINY 


|3ngo тета pOT" PILOT A SPACE MODULE ONTO THE" 
EDS) Dorv SUPFAC* OF TIM MOON.": PRINT 
KAQ роттануоШ HIST LAND ОП THE LANDING PAD" 
50°) DUTT TT RAPT "ILL DRIFT WHEN YOU" 
835070 porr mrDHST TH ANY DIRECTION. ": PRINT 
£300 Lonmmvog ABT AWARDED AM EXTRA MODUTAN 

33035 гот: тро nEACHT'G EACH 100 POINTS":PRTWT 

$3050 porum" WATCH YOUR TUET.!": PRINT 
E3006 DuerupPanCO)WpuESS ANY REY"; > | 
£3100 FL0C21TO10:A^-THKEYS*: NEXT ! 
12110 IFTI''XEYSzüU",3110 
13115 CIS: PRTHTTAR{ 9) VIO ЛИТЕРА" 

3120 PDINT:PRIHIP"CONTROLS:":DPR)INT 

3130 PRINT" | MEK ......... ПАТ TRUSTER": PRTNT 
3140 PRIN: е a... LETT AUX. THRISTER": PRINT 
3150 PRINT" W. ...RIGHT AUX. THRUSTER":PPTIT2:- + 
3155 BRTHT" BONUS POTNTS AUARDED FOR FUEL. ORMATHTNG i: PRINT 
3150 PPIITTAB (1 1 EDAD IAU] 
3120 p^Tcm:PRINTTAQB(9)"PRESS ANY KEY"; 
3120 FORT-1TO10:A5-INEEYS: TEXT 
TFIUEYGZZUM, 51808LSE90 
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Dhenni M Mas qasa бы, ore, 5. Blockout 


= H ә 
iter fee | by В Pritchard 
еб 143 ? FH. Sto-b odd, $FF4H Ж PME 


Blockout is a game for the unexpanded 


11) 


21-2267 = Jé$4q = А р! | VZ 200 which will work with joysticks ог 
14 b, ç from the keyboard. The object of the 
— 2% €24 = з 6 = & Fre game is to trap your opponent by boxing 
him/her/it, in with the lethal trail that 
you (and your opponent) leave as you 
а 25671 D move around the screen. 
аа Wi The main points of the program are: 
“КЕТ 21 BR 75 LD HL, 7599 Н Жү л — Lines 10 to 30 аге a short machine 
* 21475 language which will set the whole 
Ға n зі 79 LD DE ; qati H j Mat screen white when called. 
* 2047 D Lines 185 to 190 initialise the 
Fy NJ ҒҒ уу) 4р $C W]fFH ууз oh video LAM. variables. e | 
; * sç > Line 195 sets up the screen. 
FA 34 sç LD (м), s£ H y; ©° le Lo). Я Line 200 checks їо see if the сот- 
puter has to move (otherwise it gets 
; - the players move from the keyboard 
Fc Е> Gh LD/R Block at "T * orthe left joystick). 
Repeat Lines 205 to 240 process the left 
FÉ С RET BCX, player's movements. 
3 Line 245 collects the right player's 


move from the keyboard or the 
right joystick. 
Lines 250 to 285 process the right 
DIDA (н) +» (5€) N ` player's move. Sp 
- Lines 300 to 325 check if either 


E 


NB: LD I = 


W. ғ RL player has hit a line or run off the 
Wü, lee DE edge of the screen. 

: Lines 400 to 440 calculate and dis- 
н, de 4c play each player's score. 


Lines 500 to 595 control the com- 
. E puter's movements. 
4DIR— fepest LDT wat) SC =Ñ . Lines 1000 onwards are the instruc- 
tions and keyboard controls. 


ХЕ ЭЖ 


0 REM 

1 REM ** BLOCKOUT хх 
2 REM ** BY OYX* 
5 REM ** B.FRITCHARD ** 
4 
5 
1 
1 


REM ** 29/4/84  .** 
RAM 3930 X3 XX XX ХХХ 
0 PORI=-2868710-28674 
5 REA DA :РОКЕІ,А E 

20 NEXT 

25. mT4$32,0,112,17,1511251.295, 7,54, 85,057,115 

,201 

30 FOKE20862,241:POKE*0865,145 

35 OLS:PRINTTAB(T7)'*** BLOCKOUT ***":PRINT 

40 INPUT"INSTRUCTIONS";A$ 

45 IFLEPT$(A$,1)-"Y"THEN!000 

50 INPUT"ONE OR TWO PLàÀYEBS";PL 

55 IFPL421ANDPL«22THEN5Q 

60 IFPL=2THEN75 

65 RI$-"YOU":LES$-"I" 

70 GOTO185 

INPUT"LEFT PLAYERS NAME";LE$ 


АРС 5(7) Tul % ps sant. 
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80 INPUT"RIGHT PlAYERS NAMB"; КІФ 

185 X1=1:Y1 -0:Х2--1 :Y2-0 

190 АХ-0:АҮ-52:ВХ-127:ВҮ-232 

195 MODE(1):X=USR(Q) 

200 a оле = PEEK (27008) :АА = ‘(INP (43) 

205 IFA-259THENX1--1:Y1-2 

210 IFA=253THENZ1=1:Y1<0 

215 IFA-247THENX1=0: Y1 -1 

220 IFYA-22*5 THENX1-0: Y1 =1 | 

225 IFAA-27€?HENX42-1:Y120 

250 IFAAz2STHENX|z!:Y1«O 

255 IFAA-3QTHENX!-0: 15: | 

240 IFAA=29THENX1=0Q:y1= 

245 В-РЕЕК(26700): BB. CINP(AG)ANDS1) 

250 IFB-223TPENX!--1:Y1-0 

255 IFB=247THENX1=1:Y1=0 

260 IFB-253THZzNX!-O:Y1--| 

265 IFB-239THENX1!-0:Y1-1 

270 IFBR=27THENX1=<1 :Y1=9 

275 IFBB=23THENX1=1:Y1=0 

280 ІЕВВ-20ТНЕМХ1-0:Ү1--1 

285 ІЕВВ-29ТНЕМХ1-0:У1-1 

500 АХ-АХ%Х1:АҮ-АҮ%Ү1 

205 IFAX<GORAX>1270RA Y«OORA Y>63 THEN40Q 

510 IFPOINT(AX,AY)&>2THEN4 OO 

315 BX=BX+X2:BY=BY+Y2 

520 IFBX<@ORBX >i 27ORBY< OORBY>63THEN4 05 

325 IFPOINT(BX,BY)«»2THEN4Q5 

550 COLOR3: :SETÍAX, _ | 

555 COLOR4:SET(BX, BY 

540 GOTO200 

400 BS-BS41:W$-RI$:GOTO410 

405 AS-AS«1:W$-LE$ 

410 CLS:FERINTWS;" WON":PRINT 

415 PRINT"LEFT SCORE","RIGHT SCORE" 

420 PRINT:PRINTTAB(3)AS,TAB(3)BS 

425 PRINT@151,"PRESS ANY KEY TO CONTINUE" 

426 PRINTTAB(10)"(N=NEW GAKE)" 

450 AG-INKEY3:IFA$=""THEN430 

455 IFINKEY$=A ŠORINKEYS$S=""fHEN435 

440 IFINKEY$-'"N'THENRUNELSEPOKE27000 ,0: POKE26700 , 7 
:G0TO185 ` 

500 IFRND(40)« y1 THENS1 @ 

505 IFRND(2)-1THENX1 -RND(3) -2: Y -OELSEX1-0 

506 IFX1aQTHENY1zRND(2)-2 

510 кке алуы 
25 

515 IFPOINT(AX+XK1,AY+Y1)=2THEN245 

525 IFAX-1<@CRAY<GORAY >63 THENA1-]ELSEIFPOINT 
(АХ-1,АҮ)<22,А1ғ-1 

550 ITAX«1»21270RÀY«00RAYA265THERA221ELSEIFPOINT 
(АХ „A Y)< >22 ,A2=1 

555 1ҒАУ-1<0ОЗААСООЛАХУ12Т7ТКЕМАЗ-4ЕІЗЕТЕРОТМТ 
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(AX,AY-1)<>2,A3=1 

540 IFAY+1>63CRAX<GORAX>1 27THENA4= TELSETFPOTNT 

545 IFA1<1ANDA2=7ANDA3=1ANDA4=1 THENA 120:A2- 
MD AU 

546 А41-0:А2-0:А3-0:А4-0 

550 R- ой) 

555 IFR= РОТОВУ Ер 
(AX-1 ,AY)22,580 

560 IFR-2ANTAX^4!2128ANIAY«-1ANDAY»64 THENIFPOINT 
(AX+1 ,AY)=2,585 

565 IFR=3ANDA Y-1<-1A МГА X«.-1A NDA X »1 28THENIFPOINT 
(АХ,АҮ-1)-2,590 

570 IFR= =4A NDA Y+1 >64A NDA X«-1ANDAX >1 28THENI FPOINT 
(АХ,АҮ+1)=2,595 


575 GOTO550 

580 X1=-1:Y1=Q:GOTO245 

585 Х1=1:Ү1=@:бОТО245 

590 X1=Q:Y1=-1:GOTO245 

595 X1=Q:Y1=1:GOTO245 

1000 PRINTE64," AS YOU MOVE AROUND THE SCREEN" 


1005 PRINT"YCU WILL LEAVE А TRAIL." 
1010 PRINT" YOU CANNOT RUN INTO YOUR TRAIL" 
1015 PRINT",OR YOUR OPFONENTS TRAIL,OR RUN" 


1020 PRINT"OFF THE EDGE OF THE SCREEN." 
1025 PRINT"(DOUBLING BACK INTO YOURSELF IS" 
1050 ЕКІКТ"ТНЕ SAME AS RUNNING INTO YOUR","TRAIL" 
Q55 PRINT" WHEN FIAYING ONE PLAYER ONLY" 
1040 FRINT" (AGAINST THE COKFUTER),USE THE" 

1045 PRINT"RIGHT SST OF CONTROLS" 

1050 PRINT@8O,"FRESS ANY KEY TO CONTINUE"; 

1055 A$=INKEY$ :IFAS=""THEN1 055 

1060 IFINKZY$=A$ORINKEYS$=""THEN1 060 

1065 CLS:FRINTTAB(6)"KEYBOARD CONTROLS" 

1070 PRINT: PRINT*RIGHT PLAYER?" 


1080 PRINTTAB(14)" -RIGHT" 
1085 PRINTTAB(14)"(.)-UP' 

1090 PRINTTAB(14)"(SPACE)-DOWN" 
1095 PRINT:PRINT"LEFT PLAYER:" 
1100 PRISED (I4 (Rl RIOR 


1075 PRINTTAB(14 RI 


1105 PRINTTAB(14)" RIGHT" 
1110 PRINTTAB(14)"(C)=UP" 


1115 PRINTTAB(14)" (V) - DOWN" 

1120 PRINT 480, "PRESS ANY KEY TO CONTINUE"; 
1125 AS-INKEYS:IFAS-'""THEN1125 

1150 IFINKEYS-ASORINKEY$Sz""THEN!170 

1155 607055 
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BATTLESHIPS 
(VZED 8К) 


This is the old board game of 
Battleships and crulsers. The screen is 
divided into a 9 x 9 grid. The computer 

Su 34 +Q) 'hides' a total of 10 ships at random 
around this grid. There are four types 
р 7 aad 22 of ships — 1 Battleship which occupies 
. four adjacent squares, two Cruisers 
which occupy three adjacent squares 
each, three destroyers which occupy 
two adjacent squares each and four 
submarines occupying yes. you've got 
it, one square each. 

You must enter the coordinates 
of a square in the grid, at which time 
the computer prints either a letter in 
that square, denoting the type of vessel 
htt, or will print an asterisk if the square 
is empty. The object of the game is to 
alnk ал the vessels with the least possi- 
ble number .of shots. Good hunting! 


Micro -$0 


BATTLESHIPS VZ 200 


3 NASCEM ПР. 1: PPINT8179. "FOR У2-200" 169 HEXT B 

4 PRINT@ON1. “RY Р. CRRSON":PRINT9235, "ROELRICE" 170 Ez4 

5% PPINT933."ttXTHE GAME OF BERTTLESHIPStE£":PEM COPYPIGHT 189 F=1 

6 PPRINT?9425."INSTFÜUCTIDNS?":PRINT8456, “>>Y=VES H=H0<<"” 190 HSINTCRNDC O2» 

2 K$-IHKEYS 135 Изд 

8 IS=INKEYS: IF I$z""THEHA 200 IF Hzà THEM JeRNOXCS) 
9 IF I$-"Y"THEMN 12 292 IF H=1 THEN .IBRNDX 4 > 
18 IF I$2"H"THEN^0 205 IF Hz1 THEN К=РНО< 9) 
11 IF I$«5"Y"THEH?: IF 1%< > "Н"ТНЕН? 212 IF H=A THEN K=RNDC 4 > 
12 CLS:PRINT"THE PLAYING AREA REPRESENTS АН "› 229 L=9 

13 PRIHT"PPER OF SER. THE COMPUTER IS p 239 Р=19%.1+К 

14 РРІНТ"СОНТРҮМ._ ТРЕ; TEN SHIPS, A BRTTLE-"; 258 FOR M=A ТП (Е-1 > 


15 РРІНТ"<НІР, 2 СЕЈІЅЕРЅ, 3 DESTRUYERS ". 255 IF H=@ THEN Р=Р+М 


H 
16 PRINT"RHD 4 SUBMRRINES. OF COURSE, I "3 269 IF H=1 THEN Р=Р+19%М 
17 РРІНГ"САН’Т TELL YOU WHERE THEY APE, "; 289 IF L=9 AND GLRX >9 THEN H=W+1 
18 PPINT"DHLY THE COMPIITER KNOWS, UNTIL "i 298 IF L=1 THEN GC R=E 
19 PPINT"YOU HIT THEM. THE SHIPS ARE "; 200 НЕХТ М 
28 PRINT"DIFFERENT SIZES, AND ARE IOENTI-"; 395 IF HDD AND W19 THEN 199 
21 PRINT"FIED BY THE INITIAL LETTER. THE "; : 206 IF H=19 THEN 149 
22 PRINT"PATTLESHIP OCCUPIES FOUR SOURPES"; 319 IF L=1 THEN 499 
23 PPINT"LIKE THIS: REBR, ACROSS OR DOWN." 329 L=1 
24 PPINT:PRINT" PRESS <SPACE> TO CONTINUE” 339 GOTO 250 
25 YS=INKEYS 409 F=F+1 
26 I$*IHKEYS:IF 1902" "THEM 26 410 IF F<4 THEN Ex3 
22 CLRS:PPINT"THE CRUISERS THREE SQURPES, THE "; 428 IF F>3 AND FX? THEN Ез2 
23 PPINT"DESTROYERS THO SOURRES, AND THE "; 439 IF F>6 THEN E=1 
24 PRINT"SUBMARRINES ONE SQURRE, ALWAYS IN": 449 IF Feil THEN 799 
35 PRINT"R STRAIGHT LINE. SHIPS MAY TOUCH": 445 GOTO 199 
26 PRINT"OR LAY ALONGSIDE EACH OTHER. YDU ": | 459 PRINT#435," *; : INPUTS 
37 PRINT"FIRE A SHOT BY GIVING THO "3 | 458 IF S<11 THEN 450 
38 PRINT“NUMBERS. THE FIRST ON THE LEFT, "; | 469 IF 55299 THEM 458 
39 PRINT"THE SECOND RT THE TOP. IF YOU "Jj | 465 TsINTCCS2/18) 
48 PPINT"HIT ANYTHING, A LETTER WILL BE ”; | 478 UzS-Tf19 
41 PPINT"PRINTED TO TELL YOU WHICH TYPE "; | 472 IF f S955 THEN 450 
42 PRINT"OF SHIP YOU HIT. TO SINK ІТ, YOU"; | 475 IF GCS224 THEN S1$2*B" 
43 PPRINT"MUST HIT ALL THE SQURRES OF THAT =: | 499 IF С<5>=3 THEN S1$="C" 
44 PRINT"PRRTICULRR SHIP." | 485 IF GLS)=2 THEN Sl$="D" 
45 PRINT:PRINT" PRESS <SPACE> ТП CONTINUE" | 498 IF GS 1 THEN 51%"5" 
46 KS=INKEYS 495 IF GCS0-0 THEN S1Ss"t" 
47 IS=INKEYS:IF I$€»" "ТНЕМ4? 599 V-UÍ2*Tt324101 
52 CLS:PPRINT"IF YOU MISS, THEM f IS PRINTED "; 518 РРІМТӨУ.51% 
53 PRINT"Tn РЕМІНО YOU THAT YOU HAVE SHOT": | 520 С=С+1 
54 PRINT INTO THAT SQUARE BEFORE. " <39 IF 545)›9 THEN D=D+1 
SS PRINT: PRINT"YOUR NUMBER DF SHOTS IS SHOWN RT": | 535 545)=5 
<4 PPINT"THE BOTTOM DF THE SCREEN AND THE"; 540 PRINT94198."SHOTS:" i£: 
5? PPFINT"BEST SCORE YOU ACHIEVED DURING A"; SSA IF 0<29 THEN 458 
SR PPINT"SEPIES ОҒ GAMES. THE GAME ENDS ": 60 IF R«82 THEN РРІМТӨ457,"ВЕ5Т SCORE: ":A 
5а PRINT"HHEN ALL SHIPS HAVE BEEN SUNK." 570 IF C«R THEN R=C 
6A PPIHT:PRINT:PRINT* HAPPY HUNTING" 588 PRINT9482,"RHOTHER GAME7>>YeYES М«МХ<"; 
61 PPINT:PRIHT:PPINT* PRESS «SPRCE» TO START" <5 KS=INKEYS 
62 KS=INKEYS 599 IS=INKEYS:IF I[$=""THENSOR 
63 I$sIHKEYS': IF I9«»" "THEN 63 <25 IF I9»"Y"THEH120 
90. CLS $37 IF IS="N"THENCLS: END 
95 X=A 609 IF 1%<>"Ү"ТНЕН 535 
Іпа A=1RA 619 IF 1$=<>"N"THEN 585 
11A OTM Ge 10A) 709 С5:РРІМТӘЗЭ, "ХХХВЯТТІЕ5НІР5ЖХХ" 
128 pea 729 PRINT:PRINTTREX(70"1234 5 6 7 R 9" 
125 CL S: PRINT@1°4, "WAI T-—--ARPRNGING FLEET” 738 FOR N=1 TD а 
139 Caa 74A PRINTTABC4)INI". o ¿+ + +< s + +< S." 
140 FOP Rel Tn 100 75A MEXT H 


{SA GCB)=a | ren GOTA 4=й 


JUNIOR MATHS 


(VZED BK) = JUNIOR MATHS VZ 200 
6 CLEPR10090 CLS COLUP.1:PEM COPYRIGHT = R. CARSON - 19353, 
This program tests the four 7 FORPOZØTOZ22 STEP1 :PFINTISPO , LHES. 169); NEXT 
basic mathernatical functions: Addition, 18 COLUR 6 
Division, Subtraction and Multiplication. 23 PPINTOc?2," 9 Š mmm eum q oc 
Whist not an educational program in the w ЕРІМІРЗЗ," D O am = a. s ea" 
strictest sense, It does serve to rein- 
force lessons already learnt. You аге 
first asked to choose the type of pro- š 
blem after which a graphics screen 5 4й PFINT@0131."” B E == €> r= E шю" 
presented with an area for the ques: 41 РРІМТӨ163." п  — шынын Шш * SOUND 20.2 
tions and answers and a representation 42 РРІМТӘ256," " 
of a persons head with a поп-соттНа! 45 FURLE1T0890:NEXT 
expression and some ominous blue 45 $=" WRITTEN BY Р. CARSON ^ T 
water at the bottom. 10 questions are 42 FORLz1TOLEN« R$» 
48 PRINT82S6,RIGHTSCR$,LO; : NEXT 
49 FORT=1 702500: NEXT 
аи а ше А сше Sá T$=" WRITTEN BY Р. CARSON " 
biet odd rs SOME Si FORPELEN TS2TOISTEP- 1: PRINTI?ZS6.RIGHTSCTS.P >: NEXT 
uplifting music whilst an incorrect 57 в.“ ENJOY THIS EDUCATIONAL GAME " 
мыны es E and depressing 5a FORLEITOLEM BS) 
тес; 0Р5 өуелі (ће Core We 59 PRINTEZSG. RIGHTS BSL NENT 
so displayed. n fhe ten 9008 SA FOR )=1ТО25Өй NEXT 
tions have been presented, your SCOE | 14.2 ENJOY THIS EDUCATIONAL GAME " 
and percentage correct аге shown. £5 FOPL=LEMK TS STOISTEP=1  PRINT@ 256. PIGHTS¢ ТФ. 1: NEXT 
Now comes the odd bit which 53 FORI=] 10800: NEXT I 
may cause our mallbags to bulge with та soUND2@.3° PRINT" — YOUR CHOICE OF PROBLEMS" 
Irate letters from outraged child 7; PRINT:PRINT" A = RODITION" 
psychologists. In the original version, 72 PRINT" D = DIVISION" 
the author "punished" an Imperfect 23 PRINT" Š = SUBTRACTION" 
covered the head. He soon found that 22 k*%$=INkEYS$ 
children using it would deliberately enter ай AS=INKEYS: IFRS="" THENSO 
Incorrect answers Just to see this haP- дү IFR6$Sa"M"5DT066662 
pen. So he reversed the procedure. рг IFAS="D"GOTH60665 
Now to submerge the hapless head, £s IFR6$="R"GDT069663 
one must get a perfect score! By the 24 үғяж="< "5070690672 
way, the level of difficulty is appropriate 45 [Ең >"M"ANDAS< >"D"ANDAS< >"A"ANUAS< >" S" THEN76 
to children aged from 9-11. #9 FEM 
1040 г.=0:5=0 : Реа 
141 CLS: COLOR, O 
119 COLOR? :PRINT&932, " [n] SS XU IDEE)" 
1280 COLOR?7:PRINTG*64," Gmm... F 
125 COLOR 2 
130 PRINT?97," «ШЫНЫНЫ  " (0L СКУ :РЕІМТОЈ 10, " u aa 
132 COLOR 2 
135 PRINT9122," EE aE URL " (OLOR? :PRINTO142. " w ———_a 
140 COLOR2 
145 PEINT?161, "ИИВ" .COLOR7: PRINT? 174. " wa” 
147 COLOR? 
150 PFIHT?193," mmm" В" COLOR? : PRIMTOPTOO. " awa 
15% COLOR 2 
160 РРІМТӘ225, ""HEEEEEEENEP" (OLOR? :FFINT9222, " a” 
165 COLOR 2 | 
179 PRINT9?257," "Wm P ":(0LOR7:PRINTO270, "ЕНЕР" 
175 COLOR2 У | 
180 PRINT?222." E  " СІДСПЕТ:РРІМТӨ302." wawa" | 
185 COLOR2 
190 PPINT9?9321." وچ‎ "“ГГДОР?:РЕІМТӨЗ24. "ПЕНЕВ" 
195 ГОСОР 4 
гой PPINT?3253;."EEEENEENEENNEENB" : COLOR? PRINT9266, " ww” 
203 COLOR?:PRINTO392, " w—rr Д 
295 COLOR 3 


zu PPINT9?285, "НЕН" 

PRINT*9417,"NEEBEBNENENB" COLOR”: PRINTR430, "aaa 
COLOR 3 i 
РЕІМТО449. i” COLOR? ЛЫ ш 
S0UH0D39 , 5 
COLOR , 9 
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620109: 1NI3d: INIðd: 1LNI4d: S19 
N30133: C00 T 5 QN3HxM:COO0T JONY =A 
H3(1133: C @@]QH3= M: OOT INARA 
H301323: ç 21 DONA=Z: CZ TONYA 
N301323: C21 »0N3122 : CZ T )?QH3=A 
9010109 

6 T2MÓN3H101 MOJI : ( OS DONS=MS 
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CONTEST LOQ (VZED) 


5 


179 CLEAR 2060 

12868 3B 3 

эй CLS 

айй REM 

218 CLS: PR u PRINT" HEST CALL SIGN. ZEE BELOW" :РЕІНТ 
2 3 LIST :- LIST WITHOUT SORT" 


FR ÍIHT : 
z PRINT: РЕ SORT SORT CALL SIGHS" 
3 FRIHT:FR FEIT: LIST OH FEIHTER" 
ЕБІНТ:РЕ EHD :- ЕНІ) FROG." 
РЕІНТ:РБІНТТНЕе 39; EHTER CRLLSIGH" 
: FEIHT:FRIHT" EHTER :- : IHPUT Н1% 
IF AlS=""S0RT" THEH PN 
IF R1$="LIZT" THEN Fen 
IF R1$="EHD" THEM CLS: EHD 
IF H1$z"FEIHT" THEH 9545 
Fille I=1TÜ LEHCH1$ 2 
HEXT I 
С: Li 
FEM 
For I=1 ТОН 
IF В1%=1%* 1) THEH 4h 
| НЕХТ I 
л REM 
H=H+1 
LIS НочН1% 
FEIHT:FRIHT:FEIHT THE So" ";Н1$;" IS HEY CALL SIGH" 
FRIHT:FREIHT:FEIHT ТАЕ. Sv" "skp" CALLS LOGGED " 
% FOF # = 1 TO 188 
HERT Ж 
тыз GOTO Sha 

à REM 
1 РЕІНТ:РЕІНТ:РЕІНТ THEE do" "GALS: HLEEHDY LUBE" 
jon БОТ dH 
әріп КЕМ 
1 CLS:PEIBHT:FERIEFIT ТНЕ 12 35; " SORTIEIG":PFRIMHT 
For Ізі TU H 
; Н1%-і.1%4 1 > 
S40 РЕІМІ "Ж": 
еей Fir JEJ TON 


єй IF Н1%Ф%21%6.1» THEN сем 
Ela Jj 

1S" .!=Н1%ф 

Н1%-Б1% 

HEXT 4 

L1% Іо-ҢН1% 

HEST I 

РЕІНТ:РБІНТ:РБІНМТТНЕСОЗ; SORT COMPLETE" 
FEIHT:FRIHT:FRIHT:FRIHT" DU ‘VOU WAHT A FRIHTULIT?" : PRIHT 
РЕІНТ" ГРБІНТІ = PRINTOUT To FRIHTER" Е 
FRIHTOUT TO OJ" 

RETURH TÜ МЕНИ" 


қ 


D 


[л fe RIS 


maman ых 
LS am am 


FEIHT" | EYEZJ 
FRIHT" CHO 
K$-IHKEYS 
I$-IHKET$: IFIS=""THEMESS Ы 
IFISz2"y"RHDOIS$Z2"PF"HHDOISZ2"H"THEHEZS 
IF I$z"H" THEM 1548 


fà Po Ro Po Pues m un oo J 74 


Tunes fur 


Ti Ty CT, Cry CT CU, AM C, CO Cn e] Cn cn «n 


IF ehh THEH зй 
IF ІФ-"Ү" THEH rua 
AM РЕІНТ 

с LLS:FRIHT:FEIHT TAES? "CALL SIGHS LOGGED": FRIHT 
J FOR Iz1 ТОН 

1 FRIHT CISSI 

НЕХТ I 

FRIHT:FPEIHT" FRESS :-zFHCEZ« TÜ CUOHTIHUE" 

F $= IHKE'TS 


42" "ТНЕНРЕЗ 


REM 


912 PRINT: PRINT" YeYES ТЕТІК 


915 KS-IMKEYS 
317 EY$:IF pi$="THEH 317 
Een o 


TI ;"H'"THEHLT 
LFRIHT TREK 192: "CALL SIGNS LOGGED" 
LFEIHT 
Fork [=1 TU H+1 
ІРЕІМТ LIS! Ii, 
НЕХТ I 
GOTO Sag 


ELS :PFRIHT:PRIHT:PFRIHNT:FEIHT" pu vol WAHT ТО STOP НО" 
FRIHT:FRIFT:PRIHT:FRIHT:FRIHT TRE. So" ";H;" CALLS LüGGED " 


CONTEST LOG VZED 
by Ron Carson 

This program should be of ad- 
vantage to any radio amateur or short- 
wave listener who owns a У2200. 

As the title suggests the pro- 
gram is ideal for RD contests or any 
other type of log from which you wish 
to get a hard copy of call signs work- 
ed. To operate, it requires a printer to 
be connected to the computer. 

The menu gives you 5 options: 
LIST—List of all entries 
SORT—Sort into alphanumeric order 
PRINT—Printout to printer 
END—End Program 

—Enter Callsign 

If you go into the sort mode all 
entries are placed in alphanumeric 
order, then you will be asked if you re- 
quire a printout to printer 
Printout to VDU 
return to menu (cont) 

After each entry you will be told 
if the last callsign entered is a new one 
or entered before. If already entered it 
will not be retained in data. . 

Do not enter END until you have 
your hard copy, as END or break will 
destroy all of your entries. 


[Vice o - Yo 
4(9) л 
P 4% mu, 


FEM Ж+ЖЖ+Ж GG ЕНСЕ XXX 

REM AS PFIHTED IH MICEC Z Fok TESS = ЖҮЗ 
REM MODIFIED Ev К, CARSOH “FOR We ZÉ 

REM | 

КЕМ 

REM 

CLS: FR CHT: PR CHT 

FRIHT" 4444 DOG ЕНСЕ AERE 
FEIHT:FEIHT:FEIHT:FRIHT" F 5 AHY KEY TU CUHTIBUE" 
FRIHT:FEIHT:FEIHT:PEIHT" FFE “SPACE? TO START RACE" 
1%=1НКЕҮ# 


11%: 
= 
хх 


PAO hi PO w iS 


к. — — ra m m ca 
Y. К кА TE с 
— — <. x. a am >. ú 


- 
мр 


m IHEE $: I FAIRS" "ТНЕНІ20 
“MODES 1 > 
COLORA: ЕПВХ-ОТ0127:5ЕТС5,920:НЕХТ:ЕПЕХ-ЙТ0127:5ЕТ(Х,12:НЕХТ 
аТ0127:5ЕТ(<Х,22:НЕХТ 
BaTO12?:SETCA, 420:HEXT:FORX-BTO12?:SETC X. 435:HEX4T DOG RACE VZED 
TOLT: SETEK, 44): НЕХТ: COLORS by Ron Carson 
870123:%ЕТ( A 12>:HEXT This program was published in 
aTo123:SETCX, 22): es T Micro-80 some time ago for the TRS-80 
: FIS АГ 3 за: 2: ЧЕ: and System-80. Now it has been 
2 at 1 کا‎ modified to run in your VZ200. 
1 have only written the bare 


à REN DRAW STAT DOG 
=A: 7=6 : GOSUBSFA 
RSC: =D : GOSUBSFA 
Xx-zG:YzH:üGOSI IE 376 
AmI:Y-4J:605UE378 


COLOR2 : FORY=4TO4GSTEPS : SETC 124,7 y: NEXT YS 


bones program. Although it runs well 
and is useable as is, it gives you the 
chance to expand the program to suit 
your needs. 

After loading the program you 
are asked to do two things: 


8 IS-IHKEYS | ms 1. Press any key to continue. 
ҚФ-ІНКЕҮ%:ІРКЯ<2" "ТНЕМ225 2. Press SPACE TO START RACE 
ane 8 : After the race is over the win- 
ДАН ee а eR ning dog is printed in the text mode, and 
IFZz-1THEHZ-R:Y-B:GOÜZSUB419:R-X:GOTO280 ; i 
IFZ-2THENK- =С:ү=р: G0SUB419 (Се ; 070220 ae asked if you want to race again 

IF2Z=3THEHH=G : Y=H: GOSUE4 16: =: OTOL i 
7B ІРе=4ТНЕНКЫТ: 6 GDSUB410: I-X: GOT0280 sitions tat p lo: pine Pake Hil 
IFX«138THEHGOTD2Z Z2 
SOR TOG Fes RES TM a really great game and a lot of fun. 
IFR?z130THEHFRIHT"HO. IS THE MIHHER FAY":0$;P¥15; "CENTS". 
IFC22128THEHFFEIHT"H(O., IS THE HIHHER. FRY";O0$;PFE15;"CEHTZ" 
IFG2z130THEHFRIHT"HO. 3 IS THE WINHER FRY";O0S;PX15;"CEHTS" Micro-fo 
IF I>=13@THEHPRINT "HO. IS THE HIHHER FRY";OS$:Ff15;"CEHTS" 
FORF-1T019088:NEXTF 4(s) 124 
IHFUT"MOULD YOU LIKE RHOTHER РАСЕ ҮН?" ACS 
IFR2$z"Y"THEH1900 
IFRZ$-"N"THENCLS : END f 3,6217, 
SETC K-39, Y): SET K-28, 7: SETC K-86, 741: SETC K-77, 741 
SETCX-8, 7419: SETC K-19, Y 412: SETC K-18, Y 442: SETC K-17, Y*4) 
SET. Х-11,Ү%5):5ЕТСХ-16,Ү%52 
FORU=9TO18S:FORY=2TO3: SET X- ҮЗУ): НЕХТУ: HEXTU: RETURH 
RESET X-26. Y RESET: 4-19, Y 412: SETC X717, 741: ЕТ X-1€&. Y 
SETS K-S> Y+1): SET X74, 7+1): RESETC X79. Y): ETC X-6 , Y 2 
A RESETCX-18. 7+2): KESETCX-17, Y+2): SETC K-8, +2): SETCX-7, Y*2) 
2 RESETCX-8, Y*12: KESETCX-7, 7419: RESETS X711, 745: FKESETC K-10, Y 44) 
SETS Х-8,Ү%4):ЗЕТ(Х-7,Ү%5):КЕЗЕТ( X719, +3): RESETS X717, 743 
SETCX-8, Y*3»2:SETCA- 7, Y* 3»): FESETCX-17, Y 44): ЗЕТ X715, Y 44) 
PESETC X-17, Y 4120: БЕТ A-1595, (+1: FESETC K-16, Y *2 ): RESET“ X716, Y+3) 
I RESETC K-15, YT*2Z):PRESETCX-15, Y*3): RESETC X716, Y 4*5) 
RESETCX-15. 745: RESETC 4-15, Y 45 
СЕТ: X-13, Y*4 ): SETC 4-12, Y 45 ): PEBETCX-8, Y*4 ): SETC K-6, Y 44) 
SETS X-5, Y+): SETS X-5. Y*2): SETCX-6, Y 432: SET K-53, Y +3) 
SETCX-2, Y*12: SET X-Z, Y+1 ): PESETCX-6, 7): SETCX-S, YO 
KESET« X-6, Y+1 >: RESETS X75. 1412: XX *4: RETURH 
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The following two programs demonstrate the high 
resolution graphics capabilities of the VZ-200. Both 
programs will run on the unexpanded (8k) 
computer. 


Circle Plotting 


Here is a quick but fairly accurate program to get your 
VZ-200 to draw circles. The following notes explain the 
program and will help in conversion to other 
machines. 

Line 10 Sets high resolution graphics mode. 


circles. Eclipses can be formed by altering 
the values of these variables. 

Line 40 Ris the radius of the circle, N is the number 
of points to be plotted in the circle. 

Line 2000 A is set at 2 x Pi which is a circle in 
radians. 

Line 2030/ Contain the formulae which determine the 

2040 value of the X and Y co-ordinate. 
Line 2050 SET (X.Y) is the equivalent to HPLOT and 
PLOT X,Y in other versions of Basic. 


CLS: '3t3t3t 3t 3t3t 3t 3t 3€ 3t 3€3€ 3€ 3€ 39€ 9€ 3€ 3€ 9€ 303€ 3 3 
“ыж 92-200 CIRCLE PLOTTER ++ 
"+ IAN A. THOMPSON * 
° 3F 3F YF ¥ 3 9F 3F 3F 9F FF 3F 9F FF 3F YF 3F 3F 3F 3F 9F 3F 9F 3F 3F SF FF 
PRINT@71," CIRCLE PLOTTER " 
РКІМТЕ257,"ІАМ THOMPSON, 
COLLOROY PLATEAU" 

В IF INKEY$-""THEN8 

9 IF ІМКЕҮ$=" "ТНЕМВ 

10 MODE (1) : СО ОК,О: COLOR 3 

15 REM*Rx3O 

20 СХ=60: СҮ=50 

50 OX=1.5:0Y=1 

40 R=30:N=150 

50 GOSUB 2000 

100 REM####R=25 

110 COLOR 2 

120 СХ=60: СҮ=50 

150 DX=1.5:DY=1 
140 В=25: №150 

150 GOSUB 2000 

200 REM3«**R-20 

210 COLOR 4 

220 CX=60:CY=30 

250 OX=1.5:0Y=1 

240 R=20:N#=110 

250 GOSUB 2000 

300 REM####R=15 
COLOR,1:COLOR 7 


NO зам» 


High Resolution Graphics Plotting 


b Line 100 Sets the high resolution graphics mode. 
Line 110/ V and H set the vertical and horizontal 
: ; : ; 115 screen dimensions of the plot. 
Line 20 AA ds posu acids p Line 170 Assumes that the point with co-ordinates 0.0 
altering these variables it is possible to а Баир [ег hania combr ob the gereen: Ç 
; Line 175 Sets the points on the screen, SET is 
place the circles anywhere on the screen. equivalent to PLOT and HPLOT on other 
Line 30 These variables determine the shape of A q 


clears the screen and then commences drawing the 
next design. 


Three Dimensional 
Plotting 


This is a simple program for evolving three dimen- 
sional representations of trigonometrical functions on 
the VZ-200. 


The following notes explain the main points in 
the program. 


systems. 
Line 155 Is the nucleus of the plot; this trigonometri- 
cal formula is the function to be plotted. 


Variations are found in lines 255, 355, 455, etc., the pro- 
gram plotting a series of seven designs, pausing be- 
tween plots. Pressing any key at the end of each plot 


520 CX260:CY=30 

550 0X=1.5:0Y=1 

340 R=15:N=90 

350 GOSUB 2000 

400 REM####R=10 

410 COLOR,1:COLOR 6 

420 CX=60:CY=30 

450 OX=1.5:0Y=1 

440 К-10:М-70 

450 GOSUB 2000 

500 REM####R=5 

510 COLOR,1:COLOR 8 

520 CX=60:CY=30 

550 OX=1.5:0Y=1 

540 К-5:М-50 

550 GOSUB 2000 

1000 FOR A=1 TO 800:NEXT А 
1010 COLOR,O f 
1020 FOR A=1 TO 800:NEXT A 
1030 COLOR, 1 

1040 GOTO 1000 

2000 Az2*(22/7) 

2010 C=A/N 

2020 FOR I=O TO ñ STEP C : 
2050 X*eR*SIN(CI) : XZINT (X#OX+CX+0, 499) 
2040 YzR*COS (І) : Y=INT (Y*OY*CY-*O, 499) 
2050 SET (X, Y) 

2060 NEXT I 

2070 RETURN 


PC:GAM 


РС. Games D ct, $4 
م‎ 35 57. 


bel 3. 


55 


9 CLS: SOUND25,6 


10 PRINT@41," 3-DIMENSION " 
:'FOR THE UNEXPANDED VZ-200 


20 PRINT@102,"CBY IAN THOMPSON2" 

ЗО PRINT:PRINTG162,"THIS IS 
A SIMPLE PROGRAM FOR" 

40 PRINT@194, "EVOLVING 
THREE—DIMENSIONAL" - 

ЗО PRINT@226, "REPRESENTATIONS 
OF TRIG-" 

60 PRINTG258, "ONOMETRICAL 
FUNCTIONS. " 

70 PRINT@448,"PRESS ANY KEY TO 
START PLOTTING" 

90 IF INKEY$-"" THEN 90 

91 IF ІМКЕҮ$="" THEN 90 

100 MODE(1) 

105 COLOR,O 

107 COLOR 2 

110 H=117 

115 V-63 

125 X1-H/2:X2-X1*X1: Y1-2U/21 Y2=V/4 

130 FOR Х=О TO X1 

135 X4=X*X:M=-Y1 

140 A=SQR(X2-X4) 

145 FOR І=-А TO А STEP V/10 

150 R=SQR(X4+I*I)/X1 

155 F-(R-1)*SIN(R*12) 

160 Ye1/5«F*Y2 

165 IF Ү<=М THEN 180 

170 M#Y:Y=Y1-Y 

175 SET (X1-X,YO : SET 

180 NEXT I:NEXT X 

190 IF INKEY$-""THEN19O 

IF INKEY$-""THEN190 

MODE (1) 

COLOR,O 

COLOR 3 

210 H»117 

V-63 

X1=H/2: X2=X1*X1:Y1=V/2:Y2=V/4 

FOR X=O TO X1 

X4=X#X2M=-Y1 

A-SGR(X2-X4) 

FOR I=-A TO A STEP V/10 

R=SOR (X44+1#1)/X1 

F=COS (9#R) #(1—-R) #2 

Y=I/5+F*Y2 

IF Ү<=М THEN 280 

M=Y:sY=Y1-Y 

БЕТ (X1-X,Y)O:SET (X1+X,Y) 


(X1+X,Y) 


28O NEXT IsNEXT X 
290 IF—INKEY$=""THEN290 
295 IF INKEY$-2""THEN29O 


300 
sos 
507 
510 
515 
525 
330 
335 
340 
345 


350 


355 
560 
565 
570 
375 
380 
390 


1595 


400 
405 
407 
410 
415 
425 
450 
455 
440 
445 


450 


455 
460 
465 
470 
475 
480 
490 
495 
500 
S05 
507 
510 
515 
525 
530 
535 
540 
545 
550 
БЕТ 
Бел 
565 
570 
575 


МОРЕ (1) 

COLOR, 1 

COLOR 7 

H=1 27 

V=63 

X1=H/2: X2=X1*X1:V1=V/2:Y2=v/4 
FOR X=O TO X1 e 
X4zX«X1M2»-Y1 

A=SQR (X2-X4) 

FOR I=-A TO A STEP V/20 
R*SGR (X4 I4 1) /X1 
F=COS (20#R) + (1-R) 
YsI/S«F«Y2 

IF Y<=M THEN 380 
M=Y: Y=Y1-Y 

SET (X1-X.Y):SET 
NEXT IsNEXI X 

IF INKEY$=""THEN390 

IF INKEY$=""THEN390 

MODE (1) 

COLOR , O 

COLOR 4 

H=127 

V=63 

X1=H/2: X2=X1*X1:Y1=V/2:VY2=V/4 
FOR X=O TO X1 

X4=X*X:M=-Y1 

А=508 (X2-X4) 


(X1+X.Y) 


FOR I=-A TO А STEP V/20 
R=SQR(X4+I+*I)/X1 
F=ATN(20#R)*(1-R) 

Y=I/S+F*Y2 

IF Y<=M THEN 48O 

M=Y: Y=Y1-Y 

SET (X1-X,Y)sSET (X1+X,Y) 
NEXT IsNEXT X 

IF INKEY$=""THEN490 

IF ІМКЕҮ%-""ТНЕМ49О 

MODE (1) 

COLOR, 1 

COLOR 8 

Hz127 

V=63 

X1=H/2: X2=X1%wX1:Y1=V/2:Y2=V/4 
FOR X=O TO X1 "f 


Х4-ХжХ:М--Уі1 

A=SQR (X2-X4) 

FOR I=-A TO A STEP V/20 
R=SOR (X44+1#1)/X1 

F=LOG (25*R)3(1—R) 
YzI/S«F*Y2 

IF Ү<-М THEN 580 
MYs:YsY1-Y 

SET (X1-X,YOs:SET (X1+X.Y) 


Fe: laeras Det 84 
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A pP 3. 


Y‏ س لے 


NEXT I1NEXT X 

IF INKEY$x""THENS9O 

IF INKEY$=""THENS9Q 
MODE (1) 

COLOR,O 

COLOR 3 

H=127 

V=63 
X1=H/2:X2=X1*X1:Y1=V/21Y2=V/4 
FOR X=O TO X1 
X4=X*X:M=-Y1 

A=SQR (X2—X4) 

FOR I=-A TO A STEP V/15 
R=SQR(X4+I+*I)/X1 
F=SGN(15*R)*(1-R) 
Үші/5-Ғжү? 

IF Ү<=М THEN 680 

MeY: YsY1-Y 

SET (X1-X,Y)i1SET (X1+X,Y) 
NEXT І: МЕХТ X 

IF INKEY$=""THEN690 


IF INKEY$=""THEN690 


| MODE(1) = 


COLOR,1 

COLOR 7 

H=127 

V=63 

X1=H/2: X2=X1wX1:Y1=V/2:Y2=V/4 
FOR X=O TO X1 
X4=X*X:M=-Y1 

A=SOR (X2-X4) 

FOR Іш-А TO А STEP V/15 
R=SQR(X4+I*I)/X1 
F=(1—R) 

Y=2I/5+FxY2 

IF Y<=M THEN 780 

M=Y: Y=Y1-Y 


“БЕТ (X1-X,Y)1SET (X1+X,Y) 
.NEXT IsNEXT X 


IF INKEY$=""THEN790 
IF INKEY$2""THEN790 
GOTO 100 


26; Gawas Өш 84 
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Ghost Hunters, not to be confused 
with Ghost Busters 


Here are two interesting POKE commands while 
playing Ghost Hunters for the VZ-200. 


To achieve a high score POKE 32525,255 which 
will give you 255 Pacmen (a whole army) instead of 
the usual three. ? 

If you POKE 30290,255 the fruit will appear every 
10-15 seconds for the rest of the game. NS 
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VZ-200 odds & sods 


In Ladder Challenge Frame 2, 
jump in the opposite direction 
to the boxes. In frames 3 and 4 
do not use too many shields or 
they will run out. 

In Panik climb to the 


highest floor and then move 
down digging as many holes 
as possible. 

Shoot as many UFOs as 
possible in the early stages of 
Asteriods Each UFO is worth 
1000 points. NS 
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GOLF SI 


Grom 


= lew ` 


à Camper 


MULATION 


This draws a golf course in 
graphics mode with endless 
variations on bunkers, water 
hazards and roughs, and allows 
the player to actually ‘play’ the 
shots giving a choice of club, 
hitting strength and direction. 
Gary McCleary 
Emu Plains NSW 


“4® REM GOLF SIMULATION 
S@ REM BY GARY J MCCLEARY 


51 REM DEC. 1983 
108 CLS — Аралы нек 
118 PRINT@33,'QELCONE TO GLENLAY GOLF CO 
0859. eo 

ІІІ PRINT 

112 PRINT"IN GOLF THE OBJECT OF THE GAME 


113 
114 
115 
120 
125 


PRINT"IS TO HIT THE BALL FROM THE" 
PRINT"TEEQf) TO THE HOLE IN THE" 
PRINT“FEWEST NUMBER OF SHOTS.” 
PRINT 

PRINT"HILL THERE BE 1 OR 2 PLAYERS?" 
130 K8=INKEYS 

133 I$*INKEYS$ :VUASRNOCDO) :00=00+1 : IFDO» 18 
STHENDO*1: IF 1$» "* THEN133 

135 IF1€2"]"THEMPL»1:LP»0 :GOTO145 

132 IF162"2" THEMPL =2:LP=@ :6070145 

142 coTo13e 

145 CLS 

155 PRINT"YOUR GOLF BAG CONTAINS А:" 


158 PRINT 

160 (чоо HAX.RANGE 251 METRES" 

165 С [RON мах. RANGE 221 METRES” 

128 6 IROD Нах. RANGE 164 METRES” 

125 С TROD пах. Көмбе 122 METRES” 

180 б UCDGE) мах RANGE 87 METRES" 

185 CUTTER) MAX.RANGE 41 METRES” 

190 PRINT"AND IS ONLY USED ON THE GREEN" 

194 PRINT 

195 PRINT"TO ACHIEVE GREATER HEIGHT" 

200 PRINT"USE A HIGH NUMBEREO IRON" 

205 PRINT 

21e PRINT PACO) CONTINUES THE GANE” 
GOSUB20988 

HO»1:TT70:T120:T220:GF-0 

PA®RNO(3) +2 

PZ=RND(2) 

IF PA=3THENP=3 :SX=63 :GOTO400 

IFPA*4THENPs4. 8 

IFPA=STHENP=6.5 

` IFP2=1THENSX=@ 

ІҒР2=2ТНЕМЅХ=119 

REM 

2B=RND (3) : 2HSRNDC3) :2J=RND( 3) 

J3=RNOC9)+2 

P=RND( 107) +7 1BBeRNDC2) *18 

G=RND (5) +2:В=КМОС9)+2:н=ЕМОС10) +3 

IF2Je1THENJ3-0 

1Е1В=1ТНЕНӘ»@ 

1ЕТЫ=1ТНЕНН=@ 

C=RND(103)+9:0=13+RND(6) 

MOs INTCSORCCA-5X2^2* CBB-83)^2)1P ) 

H8=SQR( (A-C)^2+ (BB-0)^2) 

IFH8<=G+B+3THEN458 

E=13+RND( 100) :F=14+RND( 35) 

BHeSORCCC-E)^2*CO-F )^2) 

MHSSOR(CCA-E)^2* (BB-F)^2) 

IFB&(eB*tH«3THEN4685 

ІҒЫН (=+ G*3THEN466 

J19RNDC103)*9:J2«RNDC62*13 

HJ=SORC (&i-J12^2*(B8-J22)^2) 

IFHJ€*G*J3*3THEN458 

JWeSQRCCJ1-E)^2*(J2-F)^2) 

IF JW <= )3+4+3ТНЕМ466 

CLs 

X2SX1Y263:R120:B1z0:1120 

5С=@ 

CLS 

PRINT"THIS IS HOLE NUMBER” HO 

PRINT 

PRINT"PLAYER" 

PRINT 

PRINT“PAR"PA; 


LP*1 


MO “METRES” 


` Bun pew Book d Р.а 


“ 


Fon aad Ga AN 


515 SC*0:X»SX:Y263:R120:B1 20 :H1 =0 
512 505820988 

522 GOSUB20000 

523 GOSUB20980 

524 CLŠ 

525 PRINT"HHICH CLUB DO YOU WISH TO USE" 
527 INPUTCL 

538 IFCL=1 THENAV=29*RND( 11) :GOTO600 

548 IFCL=2THENAU=19*RND(11) :GOTO600 

550 IFCL=STHENAU=69+RNO( 6) :GOTO680 

S6@ IFCL=7THENAU=74+RNO(6) :GOTO500 

528 IFCL=9THENAU=79+RND(6) :6бОТОб@@ 

58@ CLS:PRINT"YOU DO NOT HAVE ONE OF THO 
SE" :GOTOS25 

бег CLS 

602 PRINT"IN WHICH DIRECTION DO YOU WISH 


б1@ PRINT"TO HIT? (010360 DEGREES)" 
628 PRINT"MEASUREO ANTICLOCKWISE FROM" 
630 PRINT"THE RIGHT" 

635 боѕиввезее 

640 INPUTAZ 

645 CLS 

652 PRINT"HOH HARO DO YOU WISH TO HIT" 
668 INPUT"eTOSe" ;U 

665 CLS 

668 PS23.141592654^/180 

628 IFUXGTHENUsÓ 

675 IFUXSETHENUsSO 

677 SC»SC*1 

680 RA*UZUESIN(2£RUXPS)^/9.81 

682 К5-Ка/Р 

685 HT=(CSINCAUEPS)2£U)~2)7019.62) 
686 IFR1=1THEN12000 

682 IFBI*1THEN13008 

698 X=X+RSECOS(AZXPS) 

200 Y=Y-RSISIN(A2XPS) 

210 H=INT(X):K=INTC(Y) 

215 н1=@ 

228 IFH<@THENH#=@:H1=1 

225 IFH»*122THENH2126 :H1»1 

230 1РК<@ТНЕНК=@:Н1=1 

235 IFK?53THENK*63:H120 

236 XzH:YsK 

248 IFH1=1THENS@@@ 

242 OI*SQR(CA-H)^2* CBB-K2^2) 

245 REM 

246 ІҒОІ <=САМОСҒ=1ТНЕМ296 

742 GOSUB20000 

754 COLOR2 

7255 Кё= | МКЕТЅ 

260 I$2INKEYS$ 

265 SETCH; K):SETCH*1, K) 

228 RESETCH,K) :RESET(H*1,K) 

225 IFI$2""THEN760 

280 IFI$Q" "THEN26O 

280 DIsSQRCCA-H)^2*(88-K)^2) 

292 OB=SQR( (C-H)+2+(D-K)^2) 

294 OW=SQR((E-H)^2+(F-K)^2) 

296 OJ=SQR((J1-H)^2+(J2-K)^2) 

800 DMa012%P 

810 iFOI<=GTHENGF=] :GOTO8000 

812 IFOB<=BAND8 OQOTHEN7000 

813 IFOJ (= J3ANOJ 30 OTHEN7e00 

814 IFOW(=UANOWOOTHEN 10000 

816 CLS 

812 PRINT"THAT SHOT WENT "INTCRA)"METRES 


819 PRINT 
820 PRINT"OISTRMCE FROM THE HOLE" 

822 PRINTINT(DT)"TETRES" 

825 PRINT"NUFBER ОҒ STROKES="SC 

822 IFPR-40RPA-STHENI000 

вза IFHX40RNDIO3ITHENI 1800 

835 FH) BOANDK31 THEN! 10@8 

840 IFK<(=8THEN1 1000 

845 GOTO2000 

1000 IFP2=2THEN1500 

1100 IFH>16ANDK>31THEN1 1008 

1110 ІҒК<=8ТНЕМІ 1000 

1120 GOTO2000 

1500 IFH«1116MQO31THENI 1000 

1510 1FK«-8THENI1000 

1520 GOTO2000 

2000 6070525 

7000 B1=1 

7005 Вн=124.5 

7010 PRINT"YOU ARE IN THE (GUNKEB" 

7020 PRINT"YOU ARE &DUISED TO USE THE WE 
oce“ 
7030 
веге 
8804 
sees 


GOTOS2S 
GF«1:GOTO68060 
CLS 


PRINT"YOU ARE ON THE (REED ANO WILL . 


PRINT"BE USING THE PUTTER" 
PRINT "WHICH DIRECTION СӨТОЗб@)” 
505862302 

INPUTAZ 

CLS 


8010 
8020 
8025 
везе 
8835 
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8040 
8050 
8060 
8065 
8870 
8875 
8200 
9000 
10000 
19995 
10010 
100920 
11020 
11005 
11010 
11011 
11012 
018 


11014 
11018 
11016 
018 

11018 
МЕ” 

11019 
11020 
11939 
12020 
12018 
12109 
13080 
13010 
13100 


PRINT"HOM HARO OO YOU WANT TO HIT" 
INPUT" СӨТ025)" ;U 
IFUCQTHENU=8 
IFU>2STHENU#25 

AU=78 

CLS 

6070622 

50004, 2:5С=5С+1 :6070245 
W1=0 

5С=5С+1 

HzH*2X4:KzK*21H 
GoTo6eeee 

R1*1 

RHz111*RHNOCIS) 

PRINT 


PRINT"YOU ARE IN TH; Сок 

IFRH) 123THENBS="{TALL. TREES" :60T011 
سے تة‎ 

IFRH> 1 18THENBS= 'fIEOIUM TREES) :GOTO 


ІРАН? =112THENBS= {ou SCRUBS" :GOTO11 


PRINT"YOUR NEXT SHOT MUST CLEAR SO 


PRINTBS 
PRINT 
6070525 
IFHT <RHTHENRA=RNO(6):GOT012100 
RA=RA/2 
R1=@ :GOTO682 
IFHT CBHTHENRA=@ :607013168 
RA=RACZ 
В1-0:60Т0682 
15002 SOUNO20, 1 : SOUND15, 1 
15002 IFLP=ƏTHENT1=T1+SC:TT=T1:P1=P1+SC- 
PA:Q=P1 
- 15003 IFLP#1THENT2=T2+SC :TT2T2:P22P2«SC- 
РА:0=Р2 
15005 As=" FOR THIS HOLE" 
15208 CLS 
15010 PRINT@39, CONGRATULATIONS) 
15015 PRINT@23, "PLATER"LP*1 
15920 PRINT 
15030 PRINT"YOU ARE IN THE HOLE" 
15040 PRINT"FOR "SC" SHOTS" 
15060 
15062 
15064 
15066 IFSC=PA+1 THENPRINT'@OGE t ; 
15068 IFSC=PA+2THENPRINT {DOUBLE BOGEY/’ ;A 
B 


SEES еже 

15069 IF SC=1THENPR INT HOLE IN ONE t29} :60 

TO15072 ws ү 

15020 PRINT 

15022 PRINT"YOUR TOTAL SO FAR IS"TT 

15024 IFQ=@THENPRINT“YOU ARE ON PAR FOR 

THE COURSE" 

15076 IFQ>@THENPRINT"YOU ARE "0" OUER PA 

R FOR THE COURSE 

15028 IFQ<@THENO=ABS(Q) :PRINT"YOUR TOTAL 
IS"Q"UNOER PAR" 

15080 PRINT :PRINT 

16008 PRINT" PRESS THE Grace: 

16019 K&=INKEYS 

16020 192 INKEY£ :KO=RNO(00) 

16030 00=00+1 : IFOD> 100 THENDO*1 

16040 IFI$2""THEN16020 

16050 ІҒІ%4>" "THEN16020 

16060 CLS 

16180 IFPL21THENHO«HO*1:GOTO350 

16200 IFPL=2ñNDLP=1TH£NLP=0 :НО=НО+ 1 :GOTO 

350 

16219 

20080 

20001 

20002 

20005 

20010 

20020 

20030 

20040 

2eese 


IFPL=2ANDLP@=8THEN :LP#1 :GOTOS18 
COLOR4 

MODE (1) :GF=0 
IFPA=4ORPA=STHEN20112 
FORI=0T0122STEP2 

ЅЕТСІ,8) :ЅЕТСЕМОС126),ЕМОС2)) 
МЕХТ è 

ҒОК І1«0Т0405ТЕР2 
SETC1,31)0:SETCRNDC402, 31 *RHNDC312) 
NEXT 


20060 
20078 
22 
200808 
20030 
20100 
29110 
20111 
20112 
20115 
20119 
20120 
20122 
20124 
122 
20126 
20128 
20138 
28132 
20134 
20140 
20142 
20144 
20158 
20152 
20154 
20156 
20158 
20160 
20162 
20200 
20218 
20220 
20225 
20226 
20228 
20232 
20233 
20234 


FORI=8610127STEP2 20235 
SETCI,31):SETCRNOC(40)*85, 31*RNOC31 20236 
20238 
NEXT Š 20240 
FORI=31TO63STEP2 20258 
5ЕТ(40,12:5ЕТ(86,12 20260 
NEXT 20264 
G0T020200 20265 
IFP222THEN20140 20266 
FORIz0TO122STEP2 20262 
SETCI,B):SETCRNOC126), RNDC22) 20268 
NEXT 20269 
FORI=16T0122STEP2 20220 
SETCI,31):SETCRNDC110)*16,31*RNDC3 20223 
20225 
NEXT 20280 
FORI=31 TO63STEP2 20292 
SETCI5, 1) 20300 
NEXT 20318 
501020228 20343 
FORI=@TO127STEP2 20350 
ЅЕТСІ,8) :ЅЕТСЕМОС 126), RNOC22) 20360 
NEXT 20365 
FORI=@T0111STEP2 20320 
SETCI,31):SETCRNOC110),RNOC31)«31) 28388 
NEXT 20385 
FORI=31TO63STEP2 20978 
SET(111,1) 20980 
NEXT 20982 
GOTO20200 20384 
FORI =A-GTOA+G 20330 
FORJ*8B-GTOBB*G 68000 
SETCI,J) 60010 
NEXT :NEXT ЧЕ” 
COLOR2 50020 
FORI=BB-11TOBB:RESET(ñ,I):NEXT ск 
FORI=BB-11TOBB:SET(ñ,I):NEXT 69039 
FORJ=BB-11T0BB-8 60040 
FORISRTOR*4 66058 
60060 


SETCI, J) :NEXT :NEXT 
IF28*1THEN20265 
COLOR2 
FORIzC-BTOC*BSTEP2 
FORJ=0-BTOO+BSTEP2 
SETCI,J) 

NEXT :NEXT 

IF 2J=1 THEN20273 
COLOR2 
FORI*J1-J3TOJ1*J3STEP2 
FORJ»J2-J3T0J2* J3STEP2 
SETCI,J) 

NEXT :NEXT 
IF2W*1THEN20349 
COLOR3 
FORI=E-WTOE+WSTEP2 
FORJ=F-WTOF *HSTEP2 
SETCI,J) 

NEXT :NEXT 

COLOR4 
FORI=SX-2TOSX+2 
SETCI,60) 

NEXT 

FORIs60TO63 
SETCSX, I) 

NEXT 

RETURN 

KS=INKEYS 

Ізя INKETS : IF1$z"" THEN20382 
IFI$4»" "ТНЕМ20982 
RETURN 

cLS 


PRINT"YOU МЕКЕ IN тне (GaTER)ANO HA 


РКІМТ"ВЕЕМ REPOSITIONED FURTHER BA 


PRINT"WITH A PENALTY OF 1" 
FOR 1=1703006 :МЕХТ 

6070215 

MOOEC1) 


Gol? $3. жора 


is š By mpe- Book of аер 


° 


XC. таз 


60020 GS-INTC427C2*G)) 


60080 
60090 
69093 
60935 
60100 
60110 
60128 
68130 
60140 
60145 
60150 
60160 
60165 
69129 
601802 
601930 
60200 
68210 
60220 


. 60230 


60240 
60243 
60245 
60246 
60250 
60220 
69280 
69285 
69299 
60300 
690310 
60312 
60314 
68328 
68338 
68332 
68334 
60340 
60360 


НН«2%(Н-83%65%63 
ҚК-СК-ВВ2%65%31 
COLOR4 
FORI-12TO106STEP2 
SETCI,8):SET(I, 55) 
NEXT 
FORI=8TOSSSTEP2 


ЅЕТС12,1):5ЕТС106, I) 


NEXT 

COLOR2 
FORI=12T031 
SETC63,1) 

NEXT 

FORI=63T075 
FORJ=12T018 
SETCI,J) 

NEXT :NEXT 
FORI-63-GSTO63*GS 


ҒОК.)-31-65/27031%65/2 


SETCI,J) 
NEXT :NEXT 
COLOR4 

KS=INKEYS 
IS=INKETS 


SETCHH, KK):SETCHH*1, KK) 


IFI$2""THEN60246 
IFISX»" "THEN60246 
ІҒ0І<-.5ТһкЕМ15000 
50708004 

PRINTQ126, "90" 
PRINT@208, 
PRINTQ240; 
PRINT@272,". 


PRINT@297, "180. . D NC 


PRINTe336,". " 
PRINT@368, "." н 
PRINT@400, ". " 
PRINT@432, "220" 
RETURN 


2222 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
930 
540 


REM "KNIGHT'S CRDSS" 
REM "LUKE LUCAS. PAPUA NEM GUINEA" 
REM "OCTOBER 83" 
REM "RECODED BY К. В.К. 10-DEC-85" 
CLS 
MODE(1) 
FOR RZ = 1 TO 24 
CZ = RND(3) + 1 
FOR AZ = -RZ ТО RZ 
IY = SQR(RZ#RZ + AZSAX) : 
SET( 60 + АЎ, 30 + YX) 
SET( 60 = AZ, 34 = YZ) 
SET( 65 + YZ, 32 - AX) 
SET( 59 - YZ, 32 + AZ) 
NEXT AZ 
NEXT RZ 
FOR RZ = 1 TU 12 
FOR AX = -RX TO RZ 
ТҮ = SGR(RZ#RZ = ААА): 
CX = RND(3) + 1 


: COLOR CZ 


: COLOR CX 


SET( 50 + AZ, 
SET( 60 + AZ, 
SET( 12 + AZ, 
SET( 12 + AZ, 
SET(114 + AZ, 
SET(114 + AZ, 
SET( 60 + AZ, 


30 + ҮД) 
30 - YX) 
30 + Y%) 
30 - YX) 
30 + Y) 
30 - YX) 
13 = Y7) 


SET( 60 + AZ, 
NEXT AZ 
NEXT RZ 
CX = RND(3) + 1 
FOR XZ =. 0 TO 127 
SET( XZ, 0) 
SET( X% 1) 
SET( XZ, 62) 
SET( X% 63) 
NEXT XZ 
FOR YZ = 


50 + YZ) 


: COLOR CX 


0 TO 63 
SET( 0, Үй) 
БЕТ( 1, Үй) 
SET(126, Үй) 
SET(127, Үй) 

NEXT YZ 

FUR T = 1 TO 2000 

60 TO 150 


: NEXT T 


is — — M Á—— M — m 


1 KES міз ыр cH veut 


Z вем E Lun дрн А NEW DUI 
> MEM" OC Tbeb NN а а nm rm 


ҮХ = INT(ZY = 0.5) 


3% =н тиен reve Ему ау. 


Se FORA--—RTOR 
чо теъмол) еу INT Ov VM, 
VS CuRND 3) а исон ос 
" se SET CRS Os HOST IESE TIA. зе 


Y4 = INT(ZY = 0.5) 


147 


The program is purely 
graphics and works as follows: 
170) Line 16 sets random colour. 
(120-249) Lines 30-60 creates what | 


call an inverted German Cross 
іп multi colours. 
210-3) Lines 90-200 draw a circle in 


the cross. 
( 410-520) Lines 345-370 draw a square. 
(S30) Line 370 pauses to display 
the image. 

The end result looks like the 
'Knights Cross with oak leaves' 
just like the Germans issued 
their war heroes. 

It shows how we can use the 
capabilities of the VZ200 todraw 
very intricate designs by allow- 
ing the composition and place- 
ment of the A Z Y in the lines 

(200-230 an) 396-370) 40-43 and 100-170, i.e. A+60 
change to А-60 ог A+60, 
30 + Y change tọ 30 + Y,A-60 all 
sorts of wonderful patterns can 
be created. 


G. Lucas 
Boroko PNG 
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“Sketcher” was written for the unexpan- 
ded VZ-200. It allows you to draw іп 4. 
colours, rubout, clear the screen, and get 

a hard copy of your artwork (if you have a |” 


Sketcher 


by P Leon 


suitable printer attached). There are | the keyboard, the changes you will need 


instructions in the program. The pro- 


are at the end of the program listing. 


gram was written to use joysticks but if | These are the keys you-would use if you 
you do not have any or would like to use | use the keyboard. 


CHANGES NEEDED TO USE THE KEYBOARD 


350 
360 


400 
410 
420 
430 
440 
450 


` 468 


420 


AS=INKEY$ :AS=INKEYS 
IFAS<>"*, 200 


IFAS="W" ANDY CO, Y=Y-1 "UP 
IFAS="2" ANDY <В, Y=Y+1 › DOWN 
IFAS="A"ANDX>@, X=X-1 "LEFT 
IFAS="S"ANDX<A, X=X+1 RIGHT 
IFAS="U"ANDY>@,SETCX; Y) :Y-Y-1 
IFA$="N" ANDY <B,SET(X, Y23:Y-2Y*] 
IFA$="H"ANDX> O, ЅЕТСХ, Ү2:Х-х-1 
IFA$="J"ANDX<A, SETCX, Y) :X=X+] 


REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 

REM Ж SKETCHER x 

REM ЖВҮ PAUL LEONX 

REM xAUGUST 1984x 

RET XXXXXXXKKKKKKX 

REM 

GOTO 1000 

MODE (C1) -%=64 : Y=32 :COLOR2, O 
ñ=122:B=63 

RESET(X, Y) 
K$=INKEY$:I$=INKEY$ 

Iz=UñL (I$) 

IF J*>@ANDI*<STHEN COLORIZ 
GOSLIB 3000 ; 
Ах= ІМРС46ЈАМО31 
ІҒАх % 31,400 

ҒОКё= 17040 :МЕХТ :5ЕТСХ, T) :FORZ-1TO40: 


А.Рс. Janes ме) 
P 26-181 
lof 3. 


z NEXT:GOTO310 

400 IFñz=30ñNDY>0,Y=Y-1 'UP 
410 IFñz=29nNDY<B,Y=Y+1 *DOWN 

420 IFAx-278NDX»0,X-2X-1 "LEFT 
430 IFAx=23ANDX<A, X=X+1 'RIGHT 
440 IFAX=14ANDY>@,SETCX,Y):Y=Y-] 
450 IFA%=13ANDY<B, SETCX, Y) : Y2Y *1 
460 IFA%=11ANDX>@, SETCX, Т) :Х=Х-1 
420 IFA*=7ANDX<A, SETCX, Y) :*-X*1 
480 IFA*=7ANDX<A,; SETCX, Y) :x2X*1 
500 GOTO 310 


1000 КЕМ ЖЖЖ INSTRUCTIONS xxx 

1030 CLS 

1060 PRINT8165,"INSTRUCTIONS (YZN)" 

1020 К%-ІМКЕҮ%:4%-ІМКЕТ% 

1080 IFñs$s="N",300ELSEIFñ$="Y",1100 

1090 СОТО 1020 

1100 CLS:PRINT86,;, "xxx INSTRUCTIONS xxx" 
1110 PRINTG5S,"HSE IHE*"RIGHT JOYSTICK” 
1120 PRINT8129,"TO DRAW HOLD THE FIRE BU 
TTON" 

1130 PRINT@161; “DOWN AND PUSH THE JOYSTI 
CK IN" : 

1140 PRINT@133, THE REQUIRED DIRECTION." 
1150 PRINT@257,°TO MOVE WITHOUT DRAWING 
OR TO" 

1160 PRINT@289, RUBOUT, JUST PUSH THE JO 
STICK 

1120 PRINTG321,"IN THE REQUIRED DIRECTIO 


GOSUB 20900 
CLS:PRINTG88, "ЖЖЖ COMMANDS xxx" 
PRINT865,"C - CLEARS SCREEN AND PLA 


PRINT@101;, “CURSOR IN THE CENTRE." 
PRINT8161,"E - WILL END THIS PROGRA 


PRINTG225,"P = WILL PRODUCE A СОРТ 


PRINT@261, "THE SCREEN IF A SUITABLE 


PRINT8293, “PRINTER IS ATTACHED. " 
PRINT@325, E.6. SEIKOSHA GP-1807A" 
GOSUB 2000 


A PC. Tease 240) 
P 24-13) 
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1280 CLS:PRINT88," XxxCOLOURS XXX" | 

1290 PRINT@65, “TO CHANGE COLOUR WHILE DR 
AW ING" 

1300 PRINT@97, “JUST PRESS 1, 2, 3, OR 4. 


1310 РКІМТӨ193,%1 = GREEN" :PRINT@209, "2 

= YELLOW" | | 

1320 PRINT@225,"3 = BLUE" :PRINT@241,"4 = 
RED" | 

1330 PRINT@321, NOTE: COLOUR 1 (GREEN) I 

© THE" | 
1340 РКІМТӨЗ53, "SAME AS THE. BACKGROUND -C <“ 
OLOUR, " 


1380 GOSUB 2000 

1330 GOTO 1000 

2000 PRINT@449, "PRESS <C> TO CONTINUE" 
. 2010 K$=INKEYS$ :8$- INKEYS 

2020 ІҒА%<5"С",2010 

2030 RETURN 

3000 K$-INKEYS 

3010 R$-INKEYS 

3020 IFA$="" RETURN 

3025 IF ASD "P" AND АЗ "Е" AND ñs$<>"C" 

RETURN 


3030 IFA$="P" COPY:RETURN 
3040 ІҒАФ= "Е" END 

3050 IFA$="C" RUN300 

3060 RETURN 


A.F.C. Jas 5$. Үй. 
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109 NEXTI 

120 Ғ=200:Ғ2=264 :Е3=215 :Ғ4=279 :М2=0 :№=0 : 
N2=0 :1=0 :13=0 :М4=6 :N3=0 

121 N4-0 

130 А=СІМРС43) АМ031 ) :В=СІМРС46)АМ0312 :IF 
ñ=31ñNDB=31THEN141 


Рипсһ 


Sock! Biffl Erki Punch is а 
game for two players that simu- 
lates: a boxing match. Full In- 
“білусбопв are in the program. 


Grant Rowe 
! Arnciiffe NSW 
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1 REM PUNCH - BOXING GAME 

2 REM ONLY JOYSTICKS NEEDED, 

3 REM WITH BASIC 02-268 CONSOLE. 

10 CLS:COLORS8, 0 :PRINT:PRINT 

11 PRINT" 808888 

12 PRINT" B в 

13 PRINT" 8 в 

14 PRINT" SBAEN 

15 PRINT" R 

16 PRINT" B 

12 PRINT" 8 ghenu 

18 SOUND28, 1 :SOUND29, 8 

19 PRINT:PRINT" LADIES & GENTLEMEN, " 
20 PRINT"THIS IS THE MAIN EUENT22" 

21 PRINT"LEFT PLAYERC7-LETTERS)" ; : INPUTL 
$:IFLENCL$2» 7THEN21 

22 PRINT"RIGHT PLAYERC7-LETTERS)" 5 : INPUT 
R$:IFLENCR$J»2THEN22 

23 FORI=1TO16:PRINT :NEXTI 

24 PRINT"PUNCH IS A BOXING TYPE GAME," 
25 PRINT"FOR TWO PLAYERS.EACH PLAYER" 
26 PRINT"USES HIS JOYSTICK TO MOVE AND" 
22 PRINT"PUNCH HIS BOXERS ARMS. TO PUNCH, 


29 PRINT"A PLAYER PUSHES HIS JOYSTICK," 
30 PRINT"IN EITHER THE LEFT OR RIGHT" 

31 PRINT"POSITION.TO MOVE HIS ARMS, YOU" 
32 PRINT"PUSH THE STICK EITHER UP OR " 
33 PRINT"DOUN?" 

34 PRINT" PRESS S TO START." 

35 IFINKEY$="S"THEN]@@ELSEGOTO35 

100 CLS:PRINT@35,L$; :PRINTGSS,R$; 

101 PRINT@388, "BLOWS"; :PRINT@404, "BLOWS" 


192 COLORS :FORI235STO380:PRINTGI, "В" ; :NE 

XTI 

103 PRINT@483, "1? ''5?*'10 

0"; 

104 Х=419:Ү=435:0=0 

105 COLOR2:PRINTG100,"BBBE 
BORE" ; 

196 PRINT@132, "BERE 
шара"; 

102 PRINT@164, "888a 
sapr”; 

108 Qz0:FORIZ1TO5:Q020*32:PRINTQ164-*0Q, "HH 

HH pees" 5 


88 


ZC 


122259221 
% 


тугу, у үстүү TTI EDD: (E 
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131 MW=@:IFñ=3@0Rñ=29THENPRINTƏF, " 
RINT@F2," "j; | 

132 IFB=3@ORB=23THENPRINT@F3-2, " 
INT@F4-2," "j; 

133 IFA=3@ANDN=@ANON2=@ THENF=F-32: IFF «20 
@THENF=200:LI=3 

134 IFñ=3@0ñNDLI=3THENF2=F2-32 : IFF2<232THE 
NF2=232 

135 IFA=29ANDN=ØANDN2=ØTHENF2=F2+32:IFF2 
> 352THENF2-F2-32 :W=4 

136 IFA=29ANDW=4 THENF=F+32: IFF> 320 THENF- 
F-32 

132 IFB=3@ANDN3=@ANDN4=@THENF 3=F 3-32: IFF 
3<21 STHENF3=215 :W=1 

138 IFB=3@ANDW=1 THENF4=F 4-32: IFF4 <247THE 
NF4=247 

139 IFB=29ANDN3=@ANDN4=@ THENF4=F 4432: IFF 
4» 352THENF 4=F4-32:W=2 

140 IFB=29ANDW=2THENF 3=F3+32: IFF3> 320 THE 
NF3=F3-32 

141 IFA=27THENF=F+] :M=M+] :N=1 :G0SUB278 
142 IFA=23THENF2=F2+1 :M2=M2+] :N2=1 :GOSUB 
289 

143 IFñ<>236NDN2=1THEN145ELSE IFA<> 27ANDN 
=1THEN144ELSE146 

144 PRINTGF," "j;j :F=F-] :M=M-1: IFM=@THEN 
N=@ :GOTO146ELSEGOTO! 46 

145 PRINT@F2," "3 :F2=F2-1 :M2=M2-1 :IFM2 
=@THENN2=@ 

146 IFB=27THENF3=F 3-1 :M3=M3-1 :N3=] :GOSUB 
250 

142 IFB-23THENF4-F4-1 :M4=M4-] :№4= 1 :GOSUB 
260 

148 IFB O 238NDN4-1THEN210ELSE IFB <> 228NDN 
3-1THEN200 

150 50508508 :GOTO130 

200 PRINT@F3-2," "; :ЕЗ=Ғ3+1 :М3=3+1 IF 
M3-8THENN3-0 

202 5070158 

210 PRINT@F4-2," 
M4=ØTHENN4=0 

215 6070158 

250 IFPEEK(28669+F 3)=1 SSTHENGOSUBS@@ : SOU 
ND1 , 4 :GOSUB3@@ELSEGOTO2S2 

251 PRINTeF3-2," "5 :F3=F3+8 :M3=M3 
+8:В=31 :RETURN 

252 ІЕРЕЕКС28669%Ғ32-125АМ0М3<-ЗТНЕМ5ОЦМ 
025, 1 :60T0253ELSERETURN 
253 SOUND2?, 1 :PRINTGF3-2, " 
3 :M3=M3+3 :RETURN 


"гр 


" j:PR 


"3 :Fq=F4+1 :M4=M4+] IF 


";:ЕЗ=ЕЗ+ 


260 1ЕРЕЕКС28669+Е42=159ТНЕМ60$И85@@:5$00 P 
| 


р%%-%9 tof 2. 


ND1, 4 :G60SUB399ELSEGOTO262 

261 PRINT@F4-2, " "; :F4=F4+8 :M4=M4 
*8:RETURN 

262 ІҒРЕЕКС28669%Ғ4)-125ам0М4<-ЗТНЕМ5ОЦМ 
D25, 1 :GOTO263EL SERETURN 
263 SOUND22, 1 :PRINTGF4-2, " 
3 :M4=M4 +3 :RETURN 

228 ІЕРЕЕКС28624%Ғ2-15ЭТНЕМ50ММ01;4:5050 
B4@@ELSEGOT0272 
221 PRINT@F-8, " 
RETURN 

222 IFPEEKC28674+F )=17SANDM> ЗТНЕМ50ЦМ025 
, 1 SGOTO273ELSERE TURN 

223 SOUND27; 1 :PRINT@F-3; " 
=M-3 :RETURN 

280 IFPEEK(28674+F 2)=1SSTHENSOUND] , 4 :GOS 
UB4¢@@EL SEGOTO282 
281 PRINT@F2-8, " 
F2-8:RETURN 

282 IFPEEK(28624*F2)21258NDH2» 3THENSOUND 
25, 1 :GOTO283ELSERE TURN 

283 SOUND27, 1 :PRINTGF2-3, " 
3 :M2=M2-3 :RETURN 

302 COLOR4 :PRINT@X, "R" ; :PRINTQX*32, "Ш" ;: 
Х-Х%1:ІЕХ-429ТНЕМ302 


"ЗІЕ=Р-8 :М=М-8 : 


"3 :F=F-3:n 


" ; :12=12-8 :۴ 2= 


"ҙ:Ғ2-Ғ2- 


"e Том» $5 


" ; :Fq=Fq+ 


301 RETURN 
302 605082700 
303 РКІМТӨ55, "WINNER" ; :FORI-1TO100:SOUND 
RND( 30), 1 :NEXTI :GOTO10 
400 COLOR4:PRINTQGT, "9" ; :PRINTQY*32, "8"; : 
Y2Y*1:IFY2445THEN402 
401 RETURN 
402 GOSUB200 
403 PRINTQ35, "WINNER" ; :FORI=1 TO1 @@ : SOUND 
ЕМ0С302,1:МЕХТІ:607010 
500 COLOR3:PRINTGF;" R8";:PRINTGF2," ШИ" 
j:PRINT@F3-2; "М8 "; 
501 PRINTQGF4-2,"W8 ";:COLOR2:PRINTGF, "В" 
1:РКІМТӘР 2, "B"; 
562 PRINTGF3, "И"; :PRINTGF4, "W" ; 
503 RETURN 
200 IFY=44STHENR=17ELSER=G 
210 FORI-100TO324STEP32 :PRINTGI-*R,; " 
"3 NEXTI 
220 RETURN 
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SPACE STATION DEFENDER 


In Space Station Defender you are 


By Paul Shultz 


broken down. You operate in the 


requested (strangely enough) to 
defend a space station. You only 
have one missile left and your 
automatic missile control has 


fourth quadrant and guide the mis- 
sile by giving it an angle from 180 
degrees. This is because of the 
radar scan display. Instructions are 


CLS 

COLOR 

ROUSUE1Sgwd 

ЕРЕК БЫС ЫЕ Бн ДШ IEE FUE EM 

FRIHTGzZ229."MEITTEH EY PAUL ӘНШ Та" 

FÜRIsiTüzüdaa:HEsTI 

ЖЖ 

ISIE 5E 

РЕІНТІУРІ SS. MERCATI LL 

РЕІНТВ229, "т — WMS": PRIA Bees. CH — 

A= IHEE r: IFG$-""THEH3S 
IFiuSz"H'"THEHZAEB 

REM IHSTRELICTICDHZ 

CL 

РЕІНТ"ҮТШЕ COMPUTER DETECTED 

РЕІНТ" EHTERIHG ҮПШЕ 

FRIHT" SIGHALS ACCORDING TO Ба Ат 

FRIHT" ІТ ІЗ ASSUMEG. THAT OBERT 

PRINT" DECIDE TO HTTHCKIT. 

РЕІНТ"ЕЕВЕМАММЕНТ OF YOUR STEHT IH 
FRIHT'OHE MISSILE TO. DESTROY 
РЕІНТ" MODEL WHICH Із WOT 
FRIHT"HIT FETEH FEY 
ІНРІШТІЗФ 

CLS 

РЕІНТ"ЕТЕН THOUGH 
FRIHT"HR'E H COMPUTER ТП HELF 
РЕІНТ"ІНЕСЕМАТІОН TMJ HAVE RVIHELE IS:" 
FRIHT"i.CDODRDIHRHTES ПЕ ЕНЕМ SHIF" 
FREIHT"z.CünDRDIHRTES ПЕ T OLIF: HISSILE" 
FREIHT"S.DISTRHHCE SHIP - MISSILE" 
FRIHT"4.DISTRHHCE SHIF — YOUR STATION" 
FRIHT"S.ERHDRE SCAM OF YOUR ШІНСЕНМТ. 
РЕІНТЧГЕТТЕЕ "E' IH SPACE FOR 
РЕІНТ"ІНЧЕСОЕМАТІОН DW ҮПШЕ 
FRIHT"EEN" 
РЕІМТ"НІТ RETUEH KE 
INPUT 
CLS 
FRIHT' YOU GUIDE 
PRINT" ІЛІНБЕННТ 
PRIWT" TO HELF ҮІІІ 


et ка É à mı 
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pg 
- 


ЕНЕМ 
COHHEL TED TO 
TU CUBTIBMUE" 


ana aum 
кайыл tat تا انا‎ 


TAIR Missle LS 


=, maa gun 
mi RN اا‎ mig 


Cu amr ii u ÛÎ rn c US m cm mt 


To СРІМТІНШЕ" 


YOUR MISSILE BY 
FROM SOUTH" 
VOU ARE ALSO GIVEH 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
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= 
-. 


Aa 


PC GAMES се ‘San. se pots 


IDEHTIFIED 
WUADRAHT OBJECT DOES HOT 


BUIGEG PMERIHLIBIL L 5? 
“VOU, " 


GIVIHGIT 


VELDOCT TIES 


detailed in the listing and the only 
point to remember is that even in 
levels 2 to 5 velocity does not 
change. А comma must also be 
typed behind the angle figure. 


SPACECRAFT" ; 
KESZFÜOüHD TI"; 


FEDERATION REGULATIOHS, " 
IZ RHEHEH' 
ИНЕПЕТИННТЕШ т СОЕ 
“OW ARE 
SHIF. 
ҮПШЕ COMPUTER " 


SHIF AHD”; 

TO "; 

EEFT HETA app ats 
THIS 15 АН OLG”; 


Tü CALL IT FRIHT "; 
SOUR DIEECTIOH.TU 
SCREEM ЕНШЕ 


CALL "; 


FRESS SPACE 8: 


YOUR" ; 


OF BOTH "3 


РКІМТ"ЕМЕМ" SHIE AND "OUR MISSILE" 

PRINT"RLL DISTANCES ARE IN STAMDARD FEDERATION LEAGUES "Jj 
PRINT" 1SFL=3696KM 2" 

PRINT"ALL "VELOCITIES ARE IN SFL-^S" 

PRINT" YOUR QUADRANT IS 1000х%1000 SFL" 

PRINT"REST OF THE OPEN SPACE IS GUARDED BY RUTOMRTIC"; 
PRINT" DEFENCE STATIONS" е 

PRIHT"TO CONTINUE HIT RETURH KEY" 

1МРОТ@% 

CLS 

PRINT" “:PRINT: PRINT: PRINT 

PRINT"WHAT LEVEL OF GAME DO ‘YOU WANT TO PLAY 1,2,2 OR 47" 
PRINT"AT LEVEL 2-4 ‘YOU CAH CONTROLSPEED OF YOUR MIS"; 
PRINT"SILE IF (ШИ WISH. "j 

PRINT"IF YOU TYPE 'U'RFTER YOUR DIRECTION SEPARATED BY "i 
PRINT "COMMA ‘SPEED WILL INCREASE 'D' WILL DECREASE IT" 
INPUTA1 

IFA1=1 THENLETO2=6 

IFA1=2THENLETD2Z=4 

IFA1=3THENLETD2Z=3 

IFA1=4THENLETD2Z=2 


CLS 
REM MISSILE RHD SHIP COORDINATES 
ХМ=0 : ''Mza 


LETX=RND¢ 460 +660 

(ЕТҮ-ЕМОс 400 +666 

LETSP=INT¢ RND« 60 2%40 2 

LETSM=INT¢ КМО 20 2%302 

LETMZINT«SGRC Xx^2*Y^2 DSF 2 

СЕТС 1 =50К САМ 2+6 Y-YM 5^2» 

LETD-SQRCxk^2t*Y^25 - 

PRINT:PRINT:PRINT:PRINT 

РКІНТТНВ 10 2 "ЯТТЕНТІОН" 

PRINT"UNIDENTIFIED SPACECRAFT HAS ENTERED YOUR": 
PRINT" QUADRANT. ALL ATTEMPTS TO CONTACT THE SHIP ";: 
PRINT" HAVE FAILED SO FAR" ; 
PRINT"YOU HRVE";M;"MINUTES BEFORE ENEMYFORCES REACH YOUR "j 
PRINT"STRTIOH AND TOFIRE YOUR MISSILE TO DESTROY THESHIP" 
FORK=1TOS 

SOUNDS, 4: SÜUND12, 6 

NEXTK 

PRINT"HIT RETURN KEY TÜ CONTINUE" 

INPUTS 

CLS 

ҒОЕ.)ч17050 

IFJ=1THEH12:30 

LETRMZRM-^« 360/< 2Ж3.141622 

LETH=RHND< 200 > 

ІЕН>ӨТНЕНО0Т0734 

ІЕНе1ТНЕН620 

IFN2ZTHEN640 

IFNzZ3THEN669 

IFN=4THEN68 

IFH=STHEH700 

CLS 

PRINT :PRINT :PRINT, 

PRINT “YOUR MISSILE EXPLODED, YOU HAYE  ";M;" MINUTES TO"; 


= E EE EEE EE ала E E eee E E ÎÎ / Ë 
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PRINT" ESCAPE BEFORE" 


616 

617 PRINT"YOUR STRTION IS OCCUPIED BY ENEMY FORCES. " 

618 GOTO?50 

628 CLS 

621 PRINT: PRINT: PRINT 

622 PRINT"MY SCANNERS INDICATE AN UNARMED TRADING SHIP THERE": 
625 PRINT" IS PROBABLY FAULT IN THEIR COMMUNICATIONS s 

630 PRINT"YOU CAN CALL THE ALARM OFF" 

635 бОТО?5@ 

640 CLS 

642 PRINT: PRINT: PRINT 

643 PRINT"THE SHIP HAS BROKEN THE RADIO ‘SILENCE AND IDENTIFI"; 
645 PRINT"ED ITSELF ASA FEDERATION BATTLECRUISER UNDERCOMMAND" j 
650 PRINT" OF YOUR BEST FRIEND CAPTAIN STARDUST. YOU CAN "; 
655 PRINT"GET CHAMPAGNE CHILLED - ARRIYAL IS EXPECTED IN ";М; 
656 PRINT" MINUTES" 

657 0070250 

660 CLS 

661 PRINT: PRINT: PRINT 

662 PRINT"SHIP WAS IDENTIFIED AS A FEDE RATION PATROL SHIP "j; 
663 PRINT"AND 15 BADLY DAMAGED. GET YOUR REPAIR CREW READY"; 
666 PRINT" AND STANDBY. SOME MEDICAL HELP WILL BE NEEDED" 

670 6070250 

680 CLS 

681 PRINT: PRINT: PRINT 

683 PRINT"RN ENEMY SHIP HAS ACCIDENTAL EXPLODED"; D; "SFL AWAY" 
685 PRINT"YOU CAN CALL ALARM OFF AND ENJOYYOUR DINNER" 

690 6070250 

700 CLS 

701 PRINT! PRINT: PRINT 

702 PRINT"MY SCANNERS INDICATE A FLEET OF ENEMY SHIPS FOLLOWIN"; 
705 PRINT"G AND YOU CANNOT POSSIBLY STOP THEM. YOU ННУЕ";М; 
710 PRINT" MINUTES TO PACK YOUR VALUABLES AND TAKE A FRENCH"; 
711 PRINT" L y 

790 PRINT"WOULD YOU LIKE TO TRY AGAIN YN >" 

752 INPUTQS 

753 IFQS="7"THENS4@ELSEEND 

754 LETAPATNC Y7% > 

760 LETZzD^/1000 

770 LETZA=RNDC 252%2 

780 LETZB=RNDC 252%2 

783 Хішх:ҮішҮ:Х2х-ХМ:Ү2-ҮМ 

790 LETXsINTCX-SPXCOSC AP >+ZR > 

800 LETYsINTCY-SPXSINCRP >+ZB > 

880 LETXMzINTXM-*SMXSINCRM22» 

890 ГЕТУМа=ІНТ< ҮМ+5МЖСО5 RM 2 2 

900 LETD1zINTCSQRCCX-XM2^24C Y-YM»^2 55 

910 LETDzINTCSGRCX^2*Y^22) 

920 LETM*xINTSGRCX^24Y^25/SP 2+5 

970 IFD1<D2THEN1160 

1000 ІҒО>5РТНЕНМ1050 

1010 CLS 

1015 CLS 


1020 PRINT:PRINT: PRINT 

1025 PRINT"ENEMY SHIPS HAVE JUST, ANDED ANDYOUR FORCES "j 
1030 PRINT"SURENDERED. BAD LUCK" 

| 1035 PRINT" WOULD YOU LIKE TO TRY AGAING YAN > 


1040 INPUTQS 
1045 IFG$="Y"THEN340ELSEEND 
1050 IFD1«STHEN1160 
1055 IFD1>SM+SPTHEN1 236 
1060 X3=¢€ X-%1 2/10: Y3=C Y-Y1 9716 
1070 X4=¢ ХМ-Х2 9718: Y4zC YM-Y2 9716 
. 1080 ҒОК(1-17010 
1090 X1=X1+X3:Y1=Y1+Y3 
1100 xX2-42*44: Ү2=ү2+ү4 
1110 DIZINTCSGRCCK1-X25^2«CY1- T25^22) 
1120 IFD1«D2THEN1160 
1130 NEXTL1 
1158 GOTO1230 
1155 CLS 
1160 CLS 
1161 PRINT:PRINT:PRINT:PRINT | 
1170 PRINT"CONGRATULATIONS YOUR MISSILE HASJUST DESTROYED THE " 
1186 PRINT"ENEMY SHIP." | 
1190 PRINT"NOW YOU HAYE TIME TO RELAK AND CELEBRATE.” 
1200 PRINT"DO YOU WANT TO PLAY AGAING YZH) 
1216 INPUTQS 
1220 IFQS$="7" THEN34GELSEEND 
1236 CLS 
1231 REM COORDINATE PRINTOUT 
1233 SOUNDS,6 
1235 PRINT"ENEMY SHIP IS";D;"SFL" 
1243 PRINT"FROM YOU" 
1245 PRINT 
1250 PRIHT"DISTRHNCE ІМ SFL" 
1260 PRINT"ENEMY SHIP MISSILE" 


1270 PRINT"SOUTH:";Y;" "GYM 
1280 PRINT"ERST :";x;" "SAM 
1285 PR 


ІМТ 
1290 РКІМТ"ЕМЕМУ SHIP 15801; 
1300 PRINT"SFL" 
1305 PRINT"FROM ‘YOUR MISSILE" 
1306 РКІНТ 
1310 PRINT"VELOCITY IN SFLZS" 
1320 PRINT"ENEM' SHIP MISSILE" 
1330 PRINTUSING" ####. 4" i SP; 
1331 PRINT" c 
1335 PRINTUSIHG"####.#";SM ` 
1336 PRINT"YOUR DIRECTION IN DEGREES?" 
1337 IFA1=1THEN134@ 
1338 INPUTOS, AS 
1339 60701350 
1340 INPUTOS 
1350 IFQ$="R"THEN1466 
1360 (ЕТНМ-УНІ С 0% 2 
1362 IFA1=1THEN1 730 
1363 REM VELOCITY UPDATE 
1364 IFAS="U"ANDSM< 97 THENLETSM=SM+3 
1365 IFAS="D"ANDSM>3THENLETSM=SM-3 
1370 GOTO1730 
1399 REM RADAR SCAN - GRAPHICS 
1400 (ЕТЕ-х/1000Ж126: ЕТЕ-Ү/1000Ж60 
1403 (ЕТЕ1-ХМ/1000Ж126:(ЕТЕ1-ҮМ/1000Ж60 


+ оёз, Фу РС САМЕЅ 


1406 MODE“ 1) z 

1407 Ce=INKEYS 

1408 IFC$z" "ТНЕНЬОТО123@ 

1410 COLOR2 

1420 6ЕТ(1,0215ЕТ<2,02:8ЕТ(0,1); 
1430 SETC1, 1»: SETC2, 1 2: SETC S, 12 
1440 SETCO, 25: 5ЕТ‹ 1, 2»: SETC 2, 22 
1450 ЅЕТ< 3,2): SETC1, 3»: SETC2, 32 
1460 COLOR4 

1478 FORI=1T0O3 

1480 SETCE,F*I» 


NEXT 
1505 CS=INKEYS 
1506 IFC$z" "ТНЕНМ1230 
1918 SET(E+1,F2:SETCE+1.F+1)2 
1520 ЅЕТ‹Е+2, +1 >: ЅЕТ:Е,Е+3 ; 
1530 SETCE+1,F+2):SETCE+1,F +29 
1540 SETCE+2,F+2>:SETCE+2,F +3 > 
1542 СФ-ІМКЕҮ% 
1543 IFC$z" "THEH1230 
1545 ІҒЕ1<00ОЕКҒ1< ТНЕМ159й0 
1547 IFE1>12G0RF 1 >66THEN1S96 
1550 COLORS 
1555 FORI=1TO3 
1556 SETCE14+1,.F 1419 
1558 NEXT 
1560 5ЕТЕЕ1+1,Е1»:5ЕТ«Е1,Е1+12 
1570 ЗЕТ5Е1%2,Ғ1%12:5<ЕТСЕ1:Ғ1ғ22- 
1580 ЅЕТ‹Е1+2, 1+2 2: ЅЕТСЕі+2,Р1+2 7 
1590 COLOR2 


1600 FORI-1TO120. 

1610 5ЕТСІ,1/22:5ЕТС 1,60; 

1620 МЕХТ 

1625 CS=INKEYS 

1626 IFC$=" "THEN1230 

1630 ҒОКІ-3Т060 

1640 SET(0,I) 

1650 NEXT 

1660 FORI-1TO2 

1670 SETC24,61*15:SETC 4S, 6141) 
1680 SETC?2,61*1»5:SETC 96, 61*I» 
1685 CS=INKEYS 

1686 IFCS-" "THEN1230 . 

1690 SETC 96, 61*I»5:SETC 120,61+1 > 


1700 SETCI,125:SETCI,245:SETC I, 36»? 
1710 ЅЕТ‹ 1,48):5ЕТ( 1,60; 

1720 50701407 

1730 NEXT J 
1800 PRINT" rmt o MOS OP а а чи е кукы El 

1810 FORI=1T013: PRINT" m n"; «NEXT 
1620 FR INT" ——" 

1830 RETURM. — 


u 


гё GAMES Sas. FE fa 4. 


VZ200 ' 


M. POTTER Page 27 Combuten. LuPaT Feb 8S 


LOST FORREST ees 


This program will fit into an unexpanded VZ-200 but only just and spaces should be missed out where they are not necessary. 


The Player can move from one location to another by using the commands: 
N - NORTH 
5 - SOUTH 
W - WEST 
E- EAST 


The command 'HELP' will display a list of verbs (or words) that the computer understands. : 
These words will aid the player in his search for the missing 'Green God' and several other treasures. 


When the player thinks he has all of the missing treasures he shouldreturnto the location of the large trees’ and type the command ‘SCORE’. If 
all the treasures have been found then a winning message will be displayed. 


68 CLEARISS 

78 V-217:W218:Gz214 

88 GOSUB1399 

98 CLS:PRINT"LOST FOREST" 

199 PRINT"----------- : 

195 РКІМТ"МОУЕ NO.";jH: IFM>SSTHENSSSS 

119 PRINT"YOUR LOCATION" 

120 PRINTDS(RM) 

138 PRINT"EXITS: ^j 

140 FORI=1TOLEN(RS(RM) ) :PRINTMIDS$(RS$(URM),I,1)05;5"," 5 sNEXTI 
178 PRINT:FORI-1TOG 

190 IFL(I)ZRHMANDF(I)-2THENPRINT"YOU CAN SEE ";O$(I);" HERE" 
200 МЕХТІ 

210 PRINT"============================" +: PRINTMS$S : M$=" WHAT " 
238 INPUT"WHAT WILL YOU DO NOW" j8$ 

248 у%="":Ш8%="":\/В=0:ОВ=@ 

258 FORIZ1TOLEN(8$) 

268 IFMID$(89$,1,1)-" "ANDVS=""THENVS=LEFTS (Q$, I-1) 

278 IFMIDS(Q$,I+1,1)¢>" "ANDVS2""THENWS-ZMID$(8$,I*1,LEN(G$) -1) 
275 IFMID$(8$,1*1,1)«5" "ANDVS<>""THENI=LEN (6%) 

289 NEXTI 


298 IFWS=" " ТНЕМИФ=0%Ф 

399 FORI=1TOV: IFVS=Vs (I) THENVB=I 

319 NEXTI 

339 FORI=1TOW: IFW$=0$ (І) THENOB=I 

348 NEXTI 

368 IFWS>""ANDOB=STHENM$="THAT’S SILLY" 

378 IFVB=STHENVB=V+1 

389 IFWS=""THENM$="I NEED TWO WORDS" 

390 IFVB>VANDOB>STHENMS$="YOU CAN'T '"+@#$+"'" 

488 IFVB>VANDOB=STHENM$="YOU DON'T MAKE SENSE" 
410 JFYB<VANDOB>SANDC (ОВ) =@THENM$="YOU DON’T HAVE °"+We+"?* 
469 IFVB=1 THENGQSUBSOQEL SE FFV B20 THENGOSUBRS 7B 
462 IFVB=30RVB=40RVB=5O0RVB=60RVB=7 THENGOSUB642 
466 IFVB=80RVB=9THENGOSUB989 

478 IFVB-19THENGOSUB1239ELSE IF VB=1 1 THENGOSUB1 969 
472 IFVB=12THENGOSUB1 199ELSEIFVB=1 3THENGOSUB1 129 
474 IFVB=14THENGOSUB! 15GELSEIFVB=15THENGOSUB1 179 
476 IFVB=16THENGOSUB1219ELSEIFVB=17THENGOSUB1 239 
478 IFVB=18THENGOSUB1299 

492 GOTO9S 

500 PRINT"WORDS I KNOW: " 

510 FORI=1TOV:PRINTVS(I)3", °$SNEXTI 

540 М=" " ; РКІМТ: 605081286 


560 RETURN 

579 PRINT"YOU ARE CARRYING: " COMPUTER INPUT 
580 FORI*1TOG:IFC(I)&4THENPRINTOS(I);",*; Feb ус Р 27 
599 МЕХТІ ` 
618 M$="":PRINT:GOSUB1289 

638 RETURN 1 ofa. 


640 р=0: IFOB=ØTHEND=VB-3 

780 IFRM=6ANDF (8) <>2THENPRINT"YOU FALL ":GOTOS3S529 

785 IFRM=6ANDF (8) =2ANDD=4THENF (8) =@ 

790 IFF(12)=ANDRM=8THENPRINT"THE EAGLE ATTACKS" : 60703999 
800 IFRM-*1ANDF(11)e9THENPRINT"HAWK ATTACKS SAVAGELY": 607039906 


850 RL*LEN(R$(M)):F(12) «8 
860 FORI=1TORL: US=MIDS(RS(RM),I,1) 

880 IF (US="N"ANDD=LANDF (17) =) THENRMSRM-3:HMzM*1:F (17) «1 

898 IF (US="S"°ANDD=2ANDF (17) #8) THENRH=RH+3:H=H+1:F(12)=1 

900 IF (US="W"ANDD=3ANDF (17) =8) THENRM=RM-1:M=M+1:F(17)=1 

910 IF (US="E"ANDD=4ANDF (17) 20) THENRM=RM+1:M=M+1:F(17)=1 

928 NEXTI 

930 МФ= "ОК" 

935 IFF(17)=ØTHENM$="YOU CAN'T GO THAT WAY" 

940 IFD<1THENM$="GO WHERE" 

978 RETURN 

980 ІҒОВ›9ТНЕММФ="І CAN'T GET "*W&:RETURN 

982 IF (OB=10ROB=2) АМС (6) «d THENM$- "YOU NEED A CLOTH BAG":RETURN 
985 IFL(OB)<>RMTHENM$="IT’S NOT HERE” 

998 IFF(OB)<>STHENMS="WHAT "*W$-"?" 

1000 IFC(OB)=1THENM$="YOU ALREADY HAVE ІТ" 

1010 IFOB>SANDL (ОВ) =RMANDF (ОВ) =ƏTHENC (OB) =1:M$="YOU HAVE "+W$ 
1011 IFOB>SANDL (OB) =RMANDF (OB) =@THENF (OB) =1 

1828 RETURN 

1838 IFRM=8ANDOB=SANDC (5) = 1 АМРЕ (12) =@THENM$="IT FLYS OFF!'* 
1031 IFRM=8ANDOB=SANDC (5) =1 АМРЕ (12) =@THENF (12) =1:С (5) 28 

1040 IFRM=1ANDOB=SANDC (5) =LANDF (11) =@THENMS="MISSED!!!"°:C(5) =0 
1046 IFOB=7ANDC(7)=1THENM$="IT BREAKS, OBJECT FALLS OUT” 

1047 IFOB=7ANDC (7) =1 ТНЕМЕ (1)=2:C(7)=8:L(1) =RM 

1048 IFC(OB)=1THENM$="WHAT A TEMPER! !":C (OB) «б 

1050 RETURN 

1868 IFRM=1ANDOB=1 1ANDC (4)=1THENM$="IT FLYS OFF WITH BERRIES” 
1878 IFRM=1ANDOB=1 1 АМОС (4) =1 THENF (11) 21:C(4) x0: RETURN 

1090 RETURN 

1100 IFRM=3ANDOB=1@ANDF (18) =STHENMS="YOU MAY NEED THIS” 

1101 IFRM=3ANDOB=1@ANDF (18) =@THENF (6) =8:F (12) «1 

1118 RETURN 

1128 IFOB=13ANDRM=9THENM$="OK":RM=6:M=N+1 

1148 RETURN | 

1150 IFRM=6ANDOB=8ANDC(8)=1THENM$="TRY THIS EXIT":F(8)=2:C(8)=@ 
1162 RETURN 

1178 IFRM=17ANDOB=14ANDC (9) =1ANDF (14) =STHENM$="YOU DIG A HOLE" 
1175 IFRM=17ANDOB#=14ANDC (9) =LANDF (14) =@THENF (14) =1:Е (3) «8 
1188 RETURN 

1218 IFC(OB)=1THENC (OB) =@:L (OB) =RM:F (OB) =@:H$= *DONE ° 

1228 RETURN 

1238 S=8:FORI=1TOG: IFC(I)=1THENS#S+1 

1248 NEXTI 

1271 IFS=>SSANDC (1) #С (2) ЖС (3) ¥C (6) C(9) CÓOOTHENPRINT"WELL DONE "| 
1272 IFS=>S@ANDC (1) ЖС (2) ЖС (3) ¥C (6) XC (9) COBANDRHZ16THEN1274 
1273 PRINT"SCORE SO ҒАБ«"%5:60Т01280 

1274 SC-(58-M)*S*1:PRINT"YOUR SCORE=";SC 

1275 PRINT*YOU'VE WON!'"*:GOTO3229 

1280 INPUT"PRESS RETURN ТО CONTINUE";CT$ 

1298 RETURN 

1398 DIMR$(12),D$(17),0$(4V) ,VS(V) ,C(W),L(G),F (W) 

1328 ПАТА13,0,17,15,11,3,13,6,6,3,1,8,9,17 

1338 FORI=1TOG:READL (І) : МЕХТІ 

1368 DATAHELP, INV,GO,N,S,V,E, GET, TAKE, THROW, FEED, ROLL, CLIMB 
1365 DATADROP,DIG,LEAVE, SCORE 

1389 FÓRI*1TOV:READUS(I):NEXTI 

1418 DATAE,WE,SW,E, SWE, NSW, E, NE, NSW, SE, SWE, NW, NE, NSWE, SW, E 
1428 DATANW,N 

1432 FORI=8T017:READRS(I) : МЕХТІ 

1520 DATATREES, MORE TREES,EVEN MORE TREES, ANOTHER TREE, TREES 
1538 DATAA TREE,UP TREE, TREE, TALL TREES, GREEN TREE,MORE TREES 
1540 DATAOAK TREE,BIG TREE,OVERGROWN TREE,SHORT TREE 

1550 DATATREES,LARGE TREES,MANY TREES 

1580 FORI=9T017:READDS(I) : МЕХТІ 

1618 DATAGREEN GQD,LAURELS,GOLD LEAF, BERRIES, ACORN, SACK 

1620 DATABEEHIVE, ROPE, TROWEL, LOG, HAWK, EAGLE, GREEN TREE 

1630 DATATREE, NORTH, SOUTH, EAST, WEST 

1640 FORI=1TOW: READOS(I) : МЕХТІ 

1678 F(1)81:F(3) =1:Е(6) «1: RHERND(18)-1 

1675 ІЕКМ<9ТНЕМ1620 

1689 M=1:RETURN 

3888 FORI-S1TO28998:NEXTI:CLS:PRINT"YOU ARE NOW OFFICIALLY DEAD” 
38198 PRINT"YOU HAVE NOT MANAGED TO COMPLETEYOUR FOREST WALK" 
3828 PRINT: INPUT°DO YOU WANT TO PLAY AGAIN"$PAS 

3838 IFLEFTS(PAS, 1)="°Y"THEN6S 

3948 CLS:END | 
35898 ЕОБІ-1702000:МЕХТІ:СІ5 

3512 PRINT"YOU'VE LANDED IN A WOLF TRAP” 

3528 PRINT: GOTO3819 

4888 CLS:PRINT"YOUR TIME HAS RUN OUT AND’ YOU ARE TOO WEAK 707) 

4818 PRINT"CONTINUE":GOTO3219 š 


Сотботее гмрот р 28. КЫ 202, | 


1 REM DECOY GAME FOR Uz-200 
2 REM WRITTEN BY GRANT ROWE 
4 РОКЕЗ0862, 80 :POKE30863, 52 
5 COLOR8,0 
10 CLS 

159 PRINT. 
20 PRINT" 
ЗВ PRINT". 
40 PRINT" 
50 PRINT ; 
55 PRINT"LEFT JOYSTICK TO MOVE SHUTTLE," 
.56 PRINT"EITHER BUTTON TO FIRE." 

52 PRINT"YOU ARE TO HOUER OUER A PART" 
58 PRINT"OF THE PLANET, ZELTA. WHILE OUR" 
59 PRINT"FIGHTERS ARE TO ATTACK ON" 

60 PRINT"THE OTHER SIOE OF THE PLANET," 
61 PRINT"YOU ARE THE DECOY FOR ZELTA" 

62 PRINT"SHIPS AND GROUND FIRE..." 

63 PRINT"WARNING:DON? T LEAUE ATMOSPHERE. 
64 PRINT"GOOD LUCK,.PRESS S TO START." 
20 L$=INKEY$:IFL$="S"THENGOTO1@@ELSEGOTO 
20 

100 S=@:M=3:H=20 

122 MODE C1) :COLOR, @ 

13@ FORI=127TO@STEP-1 :COLOR3:SETCI,62):N 
ЕХТІ 

135 Р-20:Р2-31 

140 FORI=122TO@STEP-1:X=RNDC4) 

150 IF X=20RX=3THENJ=3 

160 IFX=10RX=4THENJ=2 

161 COLORJ:IFX=3THENSET(I,60) 

163 ЅЕТСІ,612 :NEXTI 

120 М=@ 

180 КЕ0:2-0:КҮ-0:62-0:К2-0:41Ез15 

198 Вмай 
° 194 COLOR4 :XN=@ 

195 GOSUBSOQ:FORI-1T01090:UX-USRCUX) :COLO 
R,XN:XN-2XN*1 
..196 IFXN» 1THENXN-0 

:192 NEXTI :COLOR, O 

202 A=CINP(43)AND31) 

201 CR=RND(10):IFH<14THENCR=RND( 20) 

202 IFH<6THENCR=RNDC 28) 

203 COLOR4 :R-RNDC128):SETCR, CR) 

204 “IFCR> JRTHENJR=CR 

205, IF A=31THENGOTO3@0 

"210 IF A=26THENGOSUBSS@ !:GOSUB6@@ :6050861 
.8:G0TO300 

220 IF A*25THENGOSUBSS? : GOSUB600 : GOSUB63 
.0:GOTO300 

230 IF A=22THENGOSUBSS@ :GOSUB6 1 @ :G0SUB62 
'0:GOTO300 
:240. IF: A=21THENGOSUB55@ : GOSUB620 :GOSUB63 
:0:GO0TO300 
-250 IF A=3@THENGOSUBSS@ : GOSUB610 :GOTO300 
'260 IF &229THENGOSUBSS? :GOSUB630 :GOT0300 


P. F° tm p" 
ет вт 


а w - = Яу 


.S60 RESET(P-4,P2+1):RESET(P-S; P2+1): RESE 


270 
280 
300 
305 


IF A=27THENGOSUBSS@ :GOSUB6OO : вотозаа 
IF A=23THENGOSUBSS@ : GOSUB620 
60508500 

AZ=( INP(39)ñND31) 

310 IF ñ=15ORñz=15STHENGOSLIBS00 
`315 IFN=1 THENGOSUBS3@ :G0TO330 
320 N=RNDCH) : IFN=1 ТНЕМС=Р-3 :C2= ва: 1Ғ6925 
дӘТНЕМКҮ-1 E 
330 IFK-1THENGOSUB250:G0TO340 


Decoy | 


; ane. “given: in ¿thè 
program: ` Ав the: 
gamë progresses; ' 
so does the de=- 
„gree of difficulty: 


340 IFZ=1THENGOSUB8@8 :GOTO346 
345 IFKsSITHENZ-RND(H):IF 2- 1THENL- E42: 2.2. 
=EN+3 = *, Grant Rowe - 
346 XG=RND(2) : [FG2-1THENGOSUB400 :G010370 “Amelita; NEW 
342 IFK=1ANDEN>P2-SANDEN<P2+2ANDXG=1 THEN /255у2- 1 
UZ=E-3:UY=EN:GZ=1 | 
320 IFKz=1THENGOTO380 
321 IFK=1THENKZ=RNDCH):IF Кг= 1THENYZ= E+3 уз {МОН 
:YY=EN-3 +Y rese 
322 GOTO200 | І 
388 RESETCY2, YY) :RESETCY2*1, YY) : YY-YY-2: 
IFYY412THENKZ-0 :GOTO220 AMAT. 
381 IF YZ>P-BANDY2 <P+1ANOTY>P2-ZANDYY <P2+ 
2ТНЕН 1000 . 
382 COLOR4:SET(TZ, YT) :SETCYZ*1, ГҮ) :60Т02 aes 
aa , 
402 RESETCUZ, UY) :RESETCUZ*1, UY) ЕЗЕТ 
+2,UY) EIN 
418 Uz-Uz-3:1FUZ <1 THENGZ=6 : RETURN Із; 
420 COLOR4:SETCUR, SETS лоларо, 
2+2,UT) уе 
438 IF UY>P2-3ñNDUY <P2+2ANDVZ>P- -BeNDUZ «P irm 
+1ТНЕН1@@@ : TIR АЕ И Из 
449 RETURN ENES: 
S@@ COLOR8:SET(P,P2):SET(P- LP23: :ЅЕТ(Р~2 
„ P2) :ЅЕТСР-3,Р2) 
505 SETCP-4,P2):SET(P-5,P2): 5ЕТСР= 6, КЕ 
SET(P-3,P2+1) ч 
510 ЅЕТСР-4,Р2+1) :ЅЕТСР-5,Р2+1) : seit: ME 
Р2-12:5ЕТ(Р-5,Р2-1) 
515 SET(P-S,P2-2):COLOR6:SET(P-3, P241 rR 
ETURN 
550 RESETCP,P2) :RESETCP-1, P2): :RESET(P—2, 
P2) :ВЕЅЕТСР-3,Р2) 
555 RESET(CP-4,P2) :RESET(P-5, P2): RÉSETCA 
6,Р2) :RESETCP-3,P2*1) s 


Т(Р-4%Р2-19 
565 RESETCP-5,P2-1):RESETCP-5, ee RESES. 
TCP-3,P2-1):RETURN 

660 P-P-S:IFP410THENP-106 

605 RETURN 

618 P2-P2-4:IFP2€XJRTHEN2000 

615 RETURN А 
620 P=P+S:IFP>1@6THENP=16 
625 RETURN 

63а P2-P2*4:I1FP2» SSTHMENPZ2-55 


yC yes $5 
l of 2. 


Р 105 + 94. 


c 


635 RETURN. | 
202 COLOR2:SET(E,EN) :SETCE*1, EN) :ЅЕТСЕ+2 
;EN-1):SETCE*3; EN-1) 

205 SETCE*4, EN) :SETCE*S; EN) :SETCE*2, EN*1 
j 

218 SETCE+3,EN+1) :RETURN 

220 RESETCE,EN) :RESETCE*1, EN) :RESET(E *2, 
EN-1):RESETCE*3,EN-1) ` 

739 RESETCE+4, EN) iRESETCE*5, EN) 

235 RESET(E*2, EN*1) :RESETCE*3, EN*1) :RETLI 
RN 


250 605082720 

251 IFE>P-8ANDE-3> 1 THENE=E-3 :GOTO753 
252 IF E<PANDE+8<12@THENE=E+3 :6070253 
253 IF EN+S>P2ANDEN-4> 1 OTHENEN-EN-2 :GOTO 


260 
254 IF EN+?<P2ANDEN+4 <6@THENEN=EN+2 :GOTO 
260 


260 6050878090 : ІҒЕУР- ІЗАМ№ОЕ XP +1 АМОЕМ Р2-4А 


. NDEN<KP2+2THEN18000 
220 RETURN | 
800 RESETCL,L2) :RESETCL*1,L22 :L2-2L2*2: [F 
L2»60THENZ-0 :RE TURN, 
805 IF L>P-8ANOL <P+1ANDL2>P2-2ANDL2<P2+2 
THEN] @@GELSECOLOR4 | 
810 SET(L,L2):SET(L+1,L2):RETLIRN 
9800 FORI=P+2TOP+2@ :COLORRND(8) :SETCI,P2) 
:NEXTI :Хб=056СХ6) 

(910 IFK=1ANDE>P+1ANDE «P +21 ANDEN> P2-20NDE 
“N<P2+2THENSOUND4; 1 :8№= 1 
920 IF BN-1THENS-S*RNDC300) :К=0 : GOSUB220 
:HzH-1 : IFHX2THENH-2 


Decoy 


938 ВМ=@ MOON) 
945 FORI=P+2TOP+20: RESETCI] P2): NERTI 

950 RETURN ; 

992 

-1) 

991 

THEN188Q : 

992 RESET(C,C2): RESET(C; с2-13 icz- c2- 2:IF; 
C24P2-STHENN-Q:RETURN 20502 

993 IFKY«»1THENSSSELSE COLORS: :SETrC*2, c2 
)!SETCC*2,C2-1) 

994 IFC*7»P-BANDC*7«P*18NDC2)P2- -3ANDCZ <P. 
2+2THEN1 29A 

998 COLOR3:SET(C,C2):SETCC, с2- “|D RETURN ` 
1009 FORIS1T010:nODECO): ‘COLOR; 1: °SOUND15; 
| COLOR, @:SOUND3@, 1 

1010 MODEC1) :GOSUBS@@:FORF=1T020: NENT ; 
ЕХТІ ) 
1020 CLS 

1025 n-M-1:1F M=@THENZGG0 ` ze, 

1930 PRINT@165, "CURRENT SCORE "S; 

1040 PRINT8229, "SHUTTLES, LEFT "nir 

1050 FORI-1T05900:NEXTI T: em 

1100 nODECI):GOTO]30 "^ 

2000 CLS:PRINT@266, "GAME OVER" 

2010 FORI-1TO19000 :NEXTI:CLS: 

2020 PRINT8165,"FINAL SCORE. "8 


` 2025 IF S»HSTHENHS*S ` 


2030 PRINT8229," HIGH SCORE гіне; : 
2040 FORI-1TOSGGQ:NEXTI - 7n 
2182 GOTOS , ym 


УС та» gs f 95% loq 


2 ° f a. 


MOUSE MAZE 

D. CRANDALL 

From COMPUTER INPUT MARCH 1985. 

Help "mouse" by moving him around the 
maze so that he gets the cheese,seeing 
how quickly he can do it.All other 
instructions are in the game. 


1 CLS 
2 PRINTG@43, "HOUSE MAZE" 
З PRINT@96, "MOVE THE MOUSE (X) ARO 


UND THE " 120 REM READ POKES 
4 PRINT@128, "MAZE HOLDING DOWN ««C 130 READA 
TRL>> AND °" 135 IFA--99THEN490 
5 PRINT@160,"USING THE CURSOR KEYS 140 POKEG*A,C 
SO THAT* 150 GOTO130 
6 PRINTG192,"HE CAN GET THE CHEESE 490 РОКЕР, 42 
(¥). " 495 POKET,35 
7 REM’ CHROMATIC SCALE’ 500 ІЕР-ТТНЕМВОО 
10 FORS=1TD31 503 IFZ$-2""THENS502 
15 SOUNDS,1 505 2=А5С (2%) 
20 NEXT 510 IFZ=9THENN=P+1:GOTO550 
21 PRINT@257, "HIT 'I' FOR THE INVI 515 IFZ=8THENN=P-1: GOTOSSO 
SIBLE MAZE" 520 IFZ=27THENN=P-32: GOTOS50 
BLE MAZE" 530 TM=TM+i 
23 IFINKEYS="I“THENPOKE30744, 1 540 6070502 
24 IFINKEY$-"V*THENPOKE30744,0 550 Х-РЕЕК(М) S 
25 IFINKEY$-""THENGOTO23 555 E dL Mu 
27 PRINT@450, "HIT 'S'TO START" 550 COEF os Еве 
ЗО IFINKEYS< > "5" ТНЕМЗО 205 Р-М 
40 SOUND28,1 570 сотазао 
85 0-228671 800 БЕМ 
86 QQ=28736 801 FORT=1TO31 
87 QR=28862 802 SOUNDT,1 
88 P-28736 804 NEXT 
89 ST=0 ооз CLS 
90 C-129 810 PRINTe224,"YOU GOT THE CHEESE 
95 T=28700+RND (480) Ына Dini 
100 CLS 820 PRINT:PRINT" WANT TO TRY AG 
105 FORX=1T032:POKE28671+X,C:POKE2 AIN? (Y/N)"; 
9151%Х,С:МЕХТ N 830 Z$-INKEY$:IFZ$-""THEN830 
110 FORY=1T032:POKEQQ+32XY,C:NEXT POSLE ZET TERN 
115 FORY-1TO9:POKEGR432*Y,C:NEXT 850 IFZ$="N"THENEND 
147 теб; 860 GOTOS30 


1008 DATA33,37,41,48,54,67,71,73,75,76,77,78,890,82,83,84,86,88 
1005 DATA84, 96,128, 169 

1010 ПАТА90,91,92,93,94,99,100,101,102,103,105,108,112,116,122 
1020 DATA131, 135, 137,138, 149,142,144, 146,148,149, 150, 152, 153, 154 
1938 DATA156, 157,158, 159, 165, 167,172, 174,176, 182,186 

1040 ПАТА195,196,197,199,200,201,202,203,204,206,208,209,210 
1050 DATA211,212,214,216,218,219,221,222,223 

1060 ПАТА227,229,235,238,246,248,250,259,260,261,262,263,264,265 
1978 ПАТА267, 269, 2708, 272, 273,274, 275,277, 288,284, 285, 286, 287 
1989 ПАТА291,301,307,309,311,312,313,314,315,316,323,325,326,327 
1090 DATA328, 329, 339,331,332, 333, 335, 337, 341,346,350 

1100 DATA3S5, 357, 361,367,371, 373,374,376, 389, 382,391 

1110 DATA395, 396,397, 398, 399, 400,401, 402,408, 499, 419,411,312 
1120 DATA419, 428, 421,422,423, 424,425,426, 427,4931, 436,437,438 
1130 DATA439,448,444,445,446,461,465,474 

1140 DATA-99 4 COomPYTER INPUT MAR SS. 


PAINTER 


Painter is a challenging game 
where scoring is difficult. The 
program uses joysticks but can 
easily be modified to use the 
keyboard instead. 

The aim of the game is to paint 
as much of the screen as possible 
before you run out of space. You 
must avoid crossing your tracks, 
the border around the screen and 
the randomly placed red land- 
mines. 


Bruce Daniel 
Mudgee, NSW 


160 


10 ’ PAINTER - BY BRUCE DANIEL 

28 HS=8 

38 CLS 

40 FORI-28704 TO 29119 : POKE I,128 : NEXTI 

50 FORI-1 TO 20:РОКЕ 28572%1,179 :POKE 29120%1,188 :NEXTI 

80 FORI-28704 TO 29088 STEP 32:POKE I,181:POKE 1%21,186 :NEXTI 
70 POKE 28572,177:POKE 28703, 178:POKE 29120,180:POKE 29151,184 
80 FORT=1T04+RND(4) SPOKE 28672*RND(12)*32*RND(28) +345 191 :МЕХТІ 
90 SC=0:MV=1 : СР=28704: COLOR2 

100 PRINT3495,"HIGH SCORE?” $ HS$=STR$ (HS) 

110 HS$=RIGHT$(HS$,LEN(HS$)-1) 

120 IFLEN(HS$) <3THENHS$="@" +HS$:G0T012@ELSEPRINTHSS ; : SOUND23, 3 
130 РКІМТӘА81, SCORE :";:SC$=STR$(SC):SC$=RIGHT$(SC$,LEN(SC$)-1) 
140 IFLEN(SC$)<3THENSC$="0"+SC$:GOTO140ELSEPRINTSC$; 

150 JK=INP (43) ANDINP (46) AND31 

160 IFJK=30THENMV=-32ELSEIFJK=29THENMV=32 
170 IFJK=27THENMV=-1ELSEIFJK=23THENMV=1 
180 CP=CP+MV 

190 ІРРЕЕК(СР)<>128ТНЕМ220 

200 POKECP,159:SC=SC+1:G0T0130 

210” 

220 PRINT3257,'GAME OVER";' INVERSE 

238 SOUND16,1 

24@ IFSC>HSTHENHS=SC 

250 PRINT3417," PRESS <FIRE> TO PLAY 
268 JK-INP(43)ANDINP (45) AND31 

270 IFJK«»15THEN260 

280 6070 30 


" $’ INVERSE 


ve Com pvt ov, 
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JK = INP (43) AND INP («4) AND 31 
ELSE IF К = 29 5 MV =32 
ELSE IF TK = 23, МҮ = | 


IF TIC 2 30 THEN MV = 32 
IF TK = 21 THEN МУ = —1 


CP = CP+ mv 


CP is position of moving objec, 


Зо = 7 29: 4 Ijoe 23 = چ‎ 


ROADRACE 


By lan Thompson 


Imagine yourself at the wheel of a 
high speed racing car winding along 
a treacherous course. To stay on 
course, you must steer accurately or 
risk a collision with the side fences. 
By adjusting the road width and 
visibility conditions, Roadrace can be 
madeaseasyoraschallengingasyou 
wish. 

The road width can be set between 
4 and 15 characters, the degree of dif- 
ficulty changing with different 


Main routines 


widths. Visibility can be set to any of 
four settings. When visibility is good, 
the car appears high on the screen. 
This allows a good view of the twist- 
ing road ahead. When visibility is 
poor, the car appears low on the 
screen allowing only a brief look at 
the coming road. 

After a five step starting light count 
down the race begins, the twisting 
and turning road moving con- 
tinuously on the screen. 


140- 250 Variable initialisation and graphics display. 


300- 
500- 
600- 
700- 
Occurred. 

800-1050 
1400-1600 
2000-2200 
3000-3640 
4000-4090 


variables 


Road width. 
Visibility. 


420 Accepts road conditions from user. 

540 Initialises the road. 

650 Determines the next road condition. 

750 Updates the car position, determines if crash has 


Processes end of race. 
Draws next road segment. 
Initialises string variables. 
Initial graphics display. 
Graphics to start race. 


Distance driven on current day. 

Number of days of the race. 

Total distance driven for whole race. 
Elapsed time during race. 

String characters to move car left, right. 
Position of left side of road. 

Random value to move road left, right. 
Leftmost, rightmost allowable road position. 


User replies. 


Screen location of car. 

Strings to display road segments. 
First address of screen memory. 
Character string for car. 


The program occupies 2.8k of memory. 


Ар». iain 


The car is steered by the use of the 
left and right cursor control keys. 

The race proceeds until the car 
crashes offthe road. Each collision is 
considered to terminate one day of 
the race. After each day, you are 
shown the distance achieved that day 
along with the cumulative distance 
achieved for consecutive days of 
the race. 
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Modifications for TRS-80 


| The following line modifications will allow the program to run on the 
TRS-80 Color Computer. š 
160 CR=3: CC=3 
210 G=1024 
| 730 IF PEEK (Z+G) < >144 THEN 800 
740 IF PEEK (Z+G+1) < > 144 THEN 800 
910 PRINT@480,CHR$ (143) 
| 4000 Q=175:K=179 
The SOUND and COLOR statements must also be changed as 
appropriate for the TRS-80. 


С HR XX XXX CX RK MMH RR HK HE MK XE 

і ‘ж ROADRACE * 
| 2 SHH HHHH HN KKH HH YN KF FH KKH HK KH ¥: 

Ze у 7-27 @ @ (8K) x 

4 '* IAN THOMPSON -COLLAROY + 

G RHEE EH 3 С ЗЕ ЗЕ Э-ЖЕ MM XE EM 
| 1@@ SOUND 28,6 

14@ CLEAR 200 


170 L$-CHR£ (77) : RE=CHRE (44) 
200 RC-1-LC 
| 210 G-2B672 
250 GOSUR ®с@@ 
200 БОБОВ 2600 
510 т=@:М=@ 
| 515 CLS:PRINT 
320 INPUT"ENTER ROAD WIDTH (4-15) "sw 
520 W=INT (К): PRINT 
| 5447 IF Wz4 OR W>15 THEN 210 
550 PRINT"VISIRILITY CONDITIONS" 


S60 PRINT” 1 — TERRIBLE" 
570 PRINT" 2 - BAD" 
280 FRINT" = - FAIR" 


590 PRINT" 4 - GOOD" 

395 PRINTG2B8Q,"" 

400 INFUT"ENTER VISIBILITY (1—4)";U 
410 V-INT(V::GDSUB 2000 

420 IF 951 OR V4 THEN 295 

500 N-N-«i:EL-446: ER-47B8-Ut H=0 
510 2-527-64*V:L-46Z-INT (N/A! 
520 FOR J=1 TO 16:PRINTG482,R*: 
520 СОЗИН 1400:0%-1МКЕУ%Ж:МЕХТ 
540 PRINT@Z,C#;:GOSUE 4000 

600 H=H4 1: Q=RND (Ü 1 :PRINT@480 Et; 
610 IF DRC AND LER THEM 640 
620 IF Q«LC AND 1251. THEN 650 
630 GOSUB 1400:6010 700 

649 GOSUR 1600:67Тт0 700 

650 GOSUE 1500 

700 Өз-ІМЕЕУ% 

710 IF =e THEN 7=7-1 

720 IF Q£&-Rf THEN 2-241 

720 IF PEER (Z 2952144 THEN QU 
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750 
вво 
810 
820 
830 
840 
900 
910 
920 
925 
930 
940 
950 
920 
970 
980 
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IF PEEK (Z+G+1)<>144 THEN 800 
PRINT@Z,C#;:GOTO 600 

FOR J=] TO 6:Q¢=INKEY¢ 
PRINT@Z,D#;:SOUND 21,2 

FOR K=1 TO 10:МЕХТ 
PRINTG@Z, C$; 

FOR K-1 TO 10:NEXT: NEXT 
M-H/SO: T=T4+M 
FRINTG430,CHR$(127) 
PRINT"YOU WENT"; М; "KILOMETERS" 
PRINT"FOR ñ TOTAL ОЕ"; Т; "KILOMETERS" 
PRINT"IN"iN;"DAY(8)":PRINT 
PRINT"HIT «C» ~ CONTINUE RACE" 


PRINT" XR» ~ RESTART RACE" 
PRINT" «Q^» — QUIT" 
Q$£-INKEYt 


IF G£$-"C" THEN 500 


990 IF Qt="R" THEN 1010 

1000 IF Q£«»"Q" THEN 970 

1010 PRINT 

1020 PRINT"AVERAGE KILOMETERS PER DAY " 

1030 PRINT"WAS":T/N; "KM." <-- Foe J=o To Soo: N£xT- (Af) 
1040 IF Q#=“R" THEN 210 / 
1050 ENN 

1400 COLOR2:PRINT@L ,RSt; : COLORS: RE TURN 

1500 COLOR2:L=L-1:PRINTƏL ,RL.$; : COLORS: RETURN 

1600 COLORZ2:PRINTGI. , RR; :L.21 1: COLORS: RETURN 

2000 Q-1214CCx*15:K-21184CC&*16 

2010 C$=CHR$ (O) +CHR$ (K) 

2020 @=1274+CR*146: RS#*£=CHR+#¿@Q) 5080 FEAD Q:FRINT@Q+2 ,C$3 

2030 FOR J=1 TO U 2090 0%-СНКғ(128)4МІ0%(7%,0,1) 
2040 RS*=RS4#+CHRE (128) : NEXT 3100 FOR К=1 ТО 100:МЕХТ 

2050 RS#=RS$+CHRF (0) S110 PRINT@Q+Z,O%; :NEXT 

2040 O=119+CRx146:K=123+CR¥1E 3120 READ J:PRINTGQ4Z,Ct: 

2070 RLY=CHRS (Q) +CHRE (E) 2130 SOUND 26,4 

2080 FOR J-1 TO (W-1) 3140 FOR 1-1 ТО 500:МЕХТ 

2090 RLF=RLE+CHRE (128) : NEXT 5150 RETURN ` 

2100 RL£-RL£-CHR£ (2) KCHR$ (К) 3200 DATA 12,44,77,110,141,172 
2110 G-1164CR*1ló:KEz1Z234-CR*16 3210 NATA 205,278,271, 304,527 
2120 RRS=CHRE (M) +CHRE (К) 5220 DATA 270,402,4760,459 

2120 FOR 1-1 10 (W-1) 2600 A*-IMHFEYt:IT ІМРЕУЗС25 THEN 2600 
2140 RR$=RRẸ$+CHR$ (1 28) : NE. X T 3610 PRINT@448,"HIT ANY KEY TO BEGIN" 
2150 RR#=RRS+CHRE (O) +CHRE(K? 5620 Q=RMN (Ø) : OF=INKEYS 

2160 HBH£-"":FOR 4-1 TO 32 2620 IF Qfs"" THEN “F624 

2170 Bt-Bf-4CHRE(I128): NEXT 5640 RETURN 

2180 D#=CHRt (126) +CHRE (128) 4000 0=175:Е=179 

2200 RETURN 4010 NtaCHR¢ (Q +СНЕЯ (R) ACHRE) 
5000 W=7:SCSUR AQAA: CLS 4222 ME=CHRt (Q) EHRT (k) CHRE CA) 
2010 FOR J=1 ТО 18;:READ 0 40706 O-2-INT(W/2)—Ss k-0-128 
5215 COLORS 4040 FOR J«K ТО 0 SIEP 72 

5020 PRINTGQ,RSf;:NEXT 4045 CULORA 

5020 FOR 4-1 19 «00:МЕХТ 4050 РКІМТӨЛ,М4;:МЕХТ 

055 COLOR? 4360 FOR Jek TO 0 ӨТЕР 72 

20408 RESTORE:FOR 2-1 TO 6 4070 FOR R=} 10 ZOG:NEXT 

2050 READ G:PRINTGOS Z, CH; 4080 FRINT€J.M$*:: SOUND 28,4 
Z@eQ@ FOR E=) TO 10Q:MIZXT: NEX 4092 NEXT: COLOR? 

50/0 T£-"ROAGDRAUCE":FOR 1-1 IB 8 4100 RETURN 


Apr ФУ, n 48-6 
3 of 3. 


VZ200 


NUMBER 
SEQUENCE 


This program prints various se- 
quences of numbers, each ending 
with a blank. You must enter the 
next number in the sequence — 
the computer indicates if your 
entry was correct.. 
A series of ten questions is 
asked, then your score is given. 
Because the program is written 
in standard Microsoft BASIC, it 
should be easily transported to 
other computers. The random 
number statements in lines 120- 
140 may need modification, 
according to your particular ver- 
sion of BASIC. А 
lan Thompson 
Collaroy Plateau NSW 


errr errr ree eee ЗЕ ЭЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ э AE NUN 
+ NUMBER SEQUENCE * 
'* FOR THE UNEXFANDED 92-200 + 
'* IAN THOMPSON - COLL AROY * 
* Jt HE зе AE Зе 4E EAE ЗЕ JE ЗЕ EAE ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЭЕ ЗЕ ЗЕ ЗЕ ЭЕ RE 


CLS: PRINT@104, "NUMBER SEQUENCE" * 
PRINT@325, "IAN THOMPSON, COLL AROY" 
PRINT@485, "PRESS ANY KEY TO START" 

IF INKEYS="" THEN 20 

IF INKEY$z"" THEN 20 

CLS: PRINT" NUMBER SEQUENCE" : PRINT 
PRINT"THIS FROGRAM WILL PRINT VARIOUS" 
PRINT"SEQUENCES OF NUMBERS, EACH = 
PRINT"ENDING WITH A BLANK (----)." 
PRINT"WHEN YOU SEE А '?', ТҮРЕ IN THE" 
PRINT"NUMBER THAT YOU THINK THE " 
PRINT"COMPUTER MIGHT HAVE FRINTED IN " 
PRINT"PLACE OF THE BLANK." 
PRINT 
PR INT " 4t 4t 4t 4 4 4 4€ Зе 3€ 3E JE ЗЕ 3E ЗЕ 3E IE ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ З IEEE ЗЕ ERE 4 EUR °" 
ГЕЛ R=Q@ 
LET Ww=0@ 

FOR I=1 TO 10 

PRINT"PROBLEM"; I 

LET A*2INT(t1O*RND(Q) +1) 

LET BzINT(1O«*RND(QO) +1) 

LET G=RND (3) 


150 IF A>R THEN 285 
160 IF G=1 THEN 170 
162 IF G=2 THEN 210 
164 IF G=3 THEN 250 


170 LET X=2#A+3«B 


180 PRINT 4:",":B;","; A-Bi",":A*2«B", ----"; 
190 INPUT Y 

222 GOTO 410. 

210 LET X-A*Q«B«B«B 

220 PRINT 4;","iB;","iA«Bi",":B«ARB;", ----": 
220 INPUT Y 

240 GOTO 410 

250 LET X--B 

260 PRINT 4;",";B; ","; B-55 ",";-A5", ----'"5 


* 270 INPUT Y 


280 GOTO 410 

285 IF G=1 THEN 500 

290 IF Gz2 THEN 540 

500 LET Х=А#5 

210 PRINT Аз", "рожа: "ТНА; "ража", ----“. 
520 INPUT Y 

330 GOTO 410. 


540 (ЕТ X»s16*4 


560 INPUT Y 

410 IF X=V THEN 450 

420. PRINT"NO; THE COMPUTER S SEQUENCE HAS “3Xs"." 
420 LET W=W+1 

440 GOTO 470 


; —3 
350 PRINT 05",";2*054","54«05",",B&A;", ----"; > 
—— 


450 PRINT"THAT'S RIGHT!“ 


77 | 
460 LET R=R+1 Ga 


470 PRINT: 


485 SOUND 15,5 


490 PR INT “шшш ——————— cd 


500 PRINT"SCORE: "Rg" RIGHT, "; W;" WRONG 


SOS PRINT: PRINT" ww = = = uz =: zz uz uzun un um cesses Sm za == cm ma =a za n so s= " 


510 PRINT" PRESS «SPACE» FOR ANOTHER SET OF"; 


480 NEXT-I + A 7 C 
М 
м. 


520 PRINT" QUESTIONS." ы 
550 А$=ІМКЕҮФ: IF Af <> " "THEN 550 
555 RUN 


Ус May sç 
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SKETCHPAD 


This program allows you to use the com- 
puter as a sketchpad. Two versions of the 
sketchpad are available, the: first being 
low resolution graphics using the charac- 
' ters above the T, I, D and J keys. The 
' second version makes use of high resolu- 
tion graphics to allow drawings of much 
finer detail 

In both programs you control the crea 
` tion of the picture using the arrow 


keys. 


Low resolution 
graphics 
Duringthe running ofthe program, use is 
made of the eight colour keys along the 
top of the keyboard to change colourdur- 
ing drawing, As well as the colour keys 
1-8, the following keys are also available 

. for use while drawing, 

upper J graphics 

upper D graphics 


“ЖЕКЕ 


upper Т graphics 
л I graphics 

— light green background 
© — orange background 
G and B — dark green background 
О and B — red background | 
Z — rubout background 
C — clear screen 
R — re-run the program 
P — copy to printer [СР-100] 
H — move to high resolution 


High resolution 
graphics 


In this mode you have a choice of two 
background colours, green and buff. 

These colours, and the foreground 
colours for drawing are selected from the 
eight colour keys along the top of the 
keyboard. 

The following 
colours available. 


summarises the 


S ‘ж 92-200 SKETCHPAD * 
110 '* 16K EXPANSION REQUIRED ж 
15 '"x4«X4xXx433XX33 X XC ЗЕ ЗЕ УЕ ЭЕ ЭЕ ЗЕ ЗЕ EXEC 
20 ‘х IAN A. THOMPSON + 
25 “+ COLLAROY FLATEAU - NSW ж 
50 'AX3 3 X X X X X X£ X 3 XX X43 Y KX 3 3€ ЭЕ ЖЕ 
S2 

55 SOUND 25,6 2 


*Y+X) E 9% 


Ву lan Thompson 


GREEN BACKGROUND 


1-- rubout ` 
72 — yellow . 
`3 — blue 
«4 — red 
BUFF BACKGROUND 
5 — rubout 
6 — cyan 
7 — magenta 
8 — orange 
The following xs are also used to 
control the program. 


C — clear the screen 
R — re-run the program 
P — copy to printer [GP-100] 
L — move to low resolution graphics 
Due to limitations of the printer, the 
Print statements in lines 815, 900, 1000, 
1085 and 1115 should be entered in 
inverse text. 
The program occupies 62k of 
memory. , 


GOTO в00”ТІТІ-Е GRAPHICS £ INSTRUCTIONS 
120 GOSUE 2009 'INITIALISES CURSOR CONTROL. 
130 PRINT@(S2 
155 PRINT@(32#Y+X) СНЕЖ (1425): (URFFER CASE J 


(ARROW 


KEYS 


њу 
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IFC$="R"THEN 
IFC$="D"THEN 
IFC#="T" THEN 
TFC#="I" THEN 
IFC$-"Z"THEN 


IFC$2"1"THEN. 


IFC$="2"THEN 
IFC$="3 "THEN 
IFC$="4"THEN 
IFC£-"5"THEN 
IFC£-"6"THEN 
IFC$="7"THEN 
IFC$-"B"THEN 
IFC$-"G"THEN 
IFC£-"O"THEN 


IFC£f-"B"THEN 


. IFC$-"H" THEN 


, IFC£-'"C"THEN 


IFC£-"P"THEN 
GOTO 102 
GOSUB 2020 


RUN 
400 
500 
200 
300 
COLOR1: GOTO1 Q0 
COLOR2: 65070100 
COLORZsGOTO1002 


COLOR4: 65070100 


COLORS: 65070100 
COL OR6: GOTO100 
COIL.OR7s GOTO100 
COLORE: GOTO10!0 


FOKES20744,0: СООР ,0: GOTO100 
POKE30744,0:COLOR,1:GO10108 
POKE30744,1:GOTO100 


1000 
960 
СОҒҮ: GOTO100 


PRINTG(ZZ*Y-X)," "5 


PRINT@(S2#Y+X) ,CHRT 513 


IFC£-"R"THEN 
IFC£-"D"THEN 
IFC#="T" THEN 
IFC#="J" THEN 
TFC$#$=" Z" THEN 
IFC#="1" THEN 


2 IFC#="2"THEN 


IFCS="3"THEN 
IFC#="4"THEN 
IFC#="5" THEN 
IFC#="6" THEN 
IFC#="7" THEN 
IFC#="8" THEN 
IFC#="G6" THEN 
IFC#="0" THEN 
IFC#="B"THEN 
IF C#="H" THEN 
IFCS="C" THEN 
IFC#="P" THEN 
GOTO 200 
60508 2024 


RUN 
400 
500 
100 
zou 
COLOR? стан Ка Ры 
со!.Ок2:6Отп2@4 
COLORS: GOTO200 
COL.OR4: GOTO200 


COLORS: GOTO2U0C 


COLOR6: GOTO200 
COL OR7: GOTO200 
COLLOR8: GOTO200 


РОЕЕ 50744,0: COLOR, 2: G010200 
РОКЕ20744 , ð: COLOR., 
РОКЕЗ@744,‚1: зптто2@@. 


1000 
920 
COPY: GOT3200 


S): "UPPER CASE I 


а 
E 


1:6070200 


FRINTG(32*Y^X)," 4; Р ; 
FRINT@ š Bayt) CHE (120); ° UPFER CASE 2 
IFCS="R" THEN КИМ г } 
IFC$-"C"THEN 960 

IFC#="9"THEN &@@ 

IFC#="J"THEN 100 

IFC$="D"THEN 400 

IFC#="T"THEN 500 

ТЕСФ="І"ТНЕМ 2@@ 

IFC$-"G"THEN РПОКЕҖХЛ74@,@+СО ЕПН ,@:6ГТП@@ 
TFC#="0" THEM DPDFEF 30244 qn COL OR, 1: SOTOTAR 
ТЕС%="Н"ТНЕМ РОКЕЗ0744,1:60Т0200 
IFC$-"P"THEM COPY: GOTOSa0 

GOTO 300 .. 

GOSUR 20nüa 


PRINTG(Z2xY«-X)," 
PRINT (I2#Y+X) , CHRÉ (13 


IFC#="R" THEN 
IFC$=" I "THEN 
IFC£-"T"THEN 
IFC$-"J"THEN 
ІЕСе-"2"ТНЕМ 
IFC$2"1"THEN 
IFC#="2" THEN 
IFC£2"3"THEN 
IFC£-"A4"THEN 
IFC$-2"S"THEN 
IFC£-"5"THEN 
IFC$="7"THEN 
IFC$="8" THEN 
IFC#= 
IFC#="0" THEN 
IFC#="B" THEN 
IFC#="H" THEN 


IFC#="C"THEN. 


IFC#="P" THEN 
GOTO 400 
GOSUR 2000 


PRINT@ (Z2#Y+X) , " 
FRINTGe(Z2xY-X), 


IFC$-"R"THEN 
IFC$-"I"THEN 
IFC#="D" THEN 
. IFC$z"J'"THEN 
IFí2$2"Z"THEN 
ITFC#="21" THEN 
IFC#="2" THEN 
IFCF=" 2Z" THEN 
IFCE="4" THEN 
ІҒС += "5"ТМЕМ 
IFC$-"6" THEN 
IFC$-"7"THEN 
IFC#="8" THEN 
IFC? ="6" THEN 
IFG#="0" THEN 
IFC£-z"H'"THEN 
IFC#="H" THEN 
IFC#="C" THEN 
IFC#="P" THEN 
GOTO 5@@ 


"G" THEN 


A 
: ‘UPPER CASE D 

RUN : 

200 

500 

100 

300 оса 

COLOR1:6GOTO4090 `. 

COLOR2: GO10400 

COLORS: 6070400 

COLOR4: GOTO4@0  : : 

COLORS: GOTON480 

COLOR6: 50704200 

COLOR7: GOTO468 

COLORS: GOTO402 

POKES80744.,0: COLOR, @: GOTO400 

РОКЕ:0744, 2: COLOR, 12 6070700 `` 

РОКЕ 20744,1: 6070400 - “U: 

1000 - 

960 

СОРУ: 6070400 


“.. 
Ы 


UFFER CASE T 


CHR$1140);^ 
RUN - 
200 

400 

190 

500 
COLORi1:GGTOSOQO : 
COLORZ: GOTOSAG 
COLOR3:GGTO05280 
COLOR 4: GOTOSOQU 
COLORS: GOTOSA0 
COLORS: GOTOEAA 


DOLOR: GOTOS00 


COLORS: 5070500 

РОКЕ 20744,09: COLOR , 0: coros 222 
PORE 30744. . 02 COL UR. 1: GC Таса 
POKESO744, 128070590 | 


1000 i: 


ова 


СОРҮ:БОТОБ@й = 


REM#***MODE 1 SKETCHER. 


CLE 

MODE (1) ` 

xza 

Ү=0 
С+=1МЕЕҮЎ 
IFCf-","ANMDX- 


1 


LO7THENY = Xf 


IFCEz"M'"ANDX UTHENXeX-1. 


ТЕСЕ 
ЕСЖ" 
SET (Хү) 


"ANDY 20THENY-Y-— i D 
"ANDY< 62 THENVEY+ 1 = 


IFC*-"I1"THEM COLORI sO: GOTHIC i` 
ТЕС 2" THEN: COL GF 2: GOTOGSN 
CFC#H"2" THEN COLORS: БОЛ СЫЗ > 


i бек БАШ, Ді = 6 
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3of ғ. 


918 
919 


IFC$-"A"THEN COLQR4: GOTO65@ 
IFC#="5"THEN COLORS, 1:GNTO65@ 
IFC$="6"THEN COLORé: 6070650 . 
IFC$-"7"THEN COLOR7: 5070650 
IFC$="8"THEN COLORS: 6070650 
IFC#="L"THEN 50Т0900 

TEGS="R"THEN RUN 

IFC#="C"THEN 600 ` t 

IFC$z"F"THEN COFY:BOTOA50. 

GOTO 650 

CLS: РОКЕ=0744, 1: COLORS; a 

PRINT: PRINT 

FRINT" SKET Pie рар“ 
FORN=1T0100@ PUE os m 

NEXTN i£ Vp m ? 
At="IAN THOMPSON, соц аку PLATEAU" 
FORN-1TOLEN(A£) ^" 7” ` 

PRINT@289, RIGHTS (AS, Мәз 

МЕХТ 

PRINT@45@, "COPYRIGHT <C> FEBRUARY 1985" 
FORN= 1701500 

МЕХТМ 

CLS:PRINT"THIS PROGRAM ALLOWS YOU TO USE " 
FRINT"THE COMPUTER AS A SKETCHFAD. " 
PRINT ux 

PRINT"TWO VERSIONS OF THE SKETCHFAD " 
PRINT"ARE AVAILABLE, THE FIRST BEING " 
PRINT"LOW RESOLUTION GRAPHICS USING " 
PRINT"THE CHARACTERS ABOVE THE T,I,D AND J KEYS." 
PRINT d ; 
PRINT"THE. SECOND VERSION MAKES USE СЕ" 
FRINT"HIGH RESOLUTION GRAPHICS TO " 


PRINT"ALLOW DRAW eS ПЕ MUCH FINER DETATL. TO BE MADE.":PRINT 


GOSUB2500 
CLS:PRINT"IN BOTH PROGRAMS, YOU CONTROL  " 


.PRINT"THE  CREATION OF THE PICTURE." 


PRINT"USING THE ‘ARROW KEYS IN THE" 
PRINT"LOWER EST HAND CORNER OF THE " 
PRINT"KEYBOARD. 

PRINTG227,"INPUT CHOICE" 

РКІМТЕ291,"А - LOW RESOLUTION" 
FRINT@Z55,°R - HIGH RESOLUTION" . 
FRINTG241,""; : 
FRINTG241,""s: INFUTA£ 

IFAS="A"THEN GOTO 900 

IFA£-"B"THEN GOTO 1082 


GOTO87a 
CL5:PRINT". LOW RESOLUTION GRAPHICS " 
FRINT:PRINTI"DURING THE RUNNING OF THF  " 


PRINT"PROGRAM USE TS MADE OF, THE EIGHTCOLOUE KEYS ALONG"; 
PRINT" THE ТОР OF THE ЕКЕЕҮБОАЕП TO": 

PRINT" CHANGE. COLOURE€DURING DRAWING." 

FRINT:FPRINT"AS WELL AS THE COLOUR KEYS 1-8," 

PRINT"TME FOLLOWING KEYS ARE 7 ALSO" š 
FRINT"AVAILABLE FOR USE DURING THE DRAWING. " 
BOSUR2S500 

CLS:PRINT:PRINT"IT IS SUGGESTED THAT YOU MAKE” 

PRINT"A NOTE ON A-FIECE OF PAPER OF". 
PRINT" THE FOLLOWING KEYS ТО BE USED DURING DRAWING." 


1 INAL COMPUTER GAMES : 
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63°67 
xoa ç. 


B 


920 GNSUR2502 А à can 

921 CLS:PRINT@132,"J ~ "sCHR#(143)3" GRAPHTCS" 

922 FRINT@196."D — "$CHR¥ (132): " GRAPHICS" 

924 PRINT@260,"T ~ ";CHRE(140)3;" GRAPHICS" 

925 PRINT@224, "І 7OU"PCHR$CUSIMp GRAPHICS" U 

925 GOSUB 2500 : 

927 CLS:PRINTG132;"6 --. GREEN BACKGROUND" 

928 PRINT@144,"0 — ORANGE BACKGROUND" 

929 PRINT@196,"G+R DARK GREEN BACKGROUND" - 

920 PRINT@226,"0+B RED BACKGROUND" i. 

951 PRINT@240."Z - RUBOUT "BACKGROUND" 

932 PRINTe292, "Á — CLEAR THE SCREEN! 

55 PRINTe324,"P — COPY TO PRINTER [Gr'- 1001" 

934 PRINTG:SA,"R — RE-RUN THE FROGRAM". 

936 PRINTeZ88,"H - MOVE TO HIGH RESOLUTION" 

950 IF INKEY$=" "THEN 950 

:956 IF ІМКЕҮФ=""ТНЕМ 950 

950 Y-0 

965 Х-0 

970 Cl.G:GOTO100 

1000 CLS:FRINT" HIGH RESOLUTION GRAPHICS " 

1010 FRINT:PRINMT"IN THIS MODE YOU HAVE A CHOICE" 

1020 PRINT"OF ТЫС BACKGROUND COLOURS, GREENAND BUFF. ":PRINT 

1050 PRINT"THESE COLOURS, AND THE FOREGROUNDCOLOURS FOR DRAWING"; 

1840 PRINT",ARE SELECTEDFROM THE: EIGHT COLOUR KEYS ALONG". 

1050 PRINT"THE TOF ОҒ THE KEYBOARD. f 

10060 PRINT:FRINT"THE FOLLOWING SUMMAR ISES THE" 

1070 FRINT"COLOURS AVAILABLE." ` a3 

1075 6050082500 gf tas 

1085 CLS:PRINT:PRINT" GREEN BACKGROUND": PRINT 

1090 PRINT" ~ RUBOUT" 

1095 FRINT". - YELLOW" 

1100.FRINT" 3 — BLUE" 

1105 PRINT" 4 - RED" 

1110 PRINT Ar 

1115 PRINT" BUFF BACKGROUND": PRINT 

1120 FRINT" 5 - RUBOQUT" Š 

1125 PRINT" 6 — CYAN" 

1130 PRINT" 7 - MAGENTA" 

1135 PRINT" 8 - ORANGE" 

1140 605082500 ; : tes 

1150 CLS:PRINT" THE FOLLOWING KEYS АВЕ ALSO USEDTO CONTROL THE") aoe 

114@ PRINT" PROGRAM. " es 

1165 PRINT@131,"C - CLEAR THE SCREEN" 

1170 PRINTG19Z,"P.— COPY TO PRINTER ГОР-1001" 

1175 PRINTG259,"R — RE-RUN THE PROGRAM" š 

1180 FRINT@Z22,"L - MOVE TO LOW RESOLUTION | . GRAPHICS". 

1185 PRINTG48O,"PRESS «SPACE» TO START DRAWING"; ы 

1190 IF INKEY$<>" "THEN 1185 

1195 IF INKEY£-"' "THEN 1195 

1200 GOTO 600 ` 

2000 C£-INKEYf | 1 

2005. IFC$-","ANDX43OTHENX-X^1 

2010 IFCS="M"ANDX >@THENX=X~1 не + y 

2020 IFC$-"."ANDYOOTHENY-Y-1 ` 2510 IF INKEY$«»"C"THEN 2500 

2050 IFC$-" "“ANDY<1STHENY=Y+1 ..2520 IF INKEY$="C"THEN 2528 
` 2040 RETURN : 2530 IF INKEY$="C"THEN 2520 
‚ 2500 PRIN asp TEE. «C». TQ CONTINUE"; 2540 RETURN 
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| Morse тра 


PROGRAM . 
[mis р 


; program. runs: on ‘the stan- 


“dard TRS80 MC10 with 4 Kbytes of ` 


memory, and should also be sui*- 


“able for the TRS80 CoCo, It runs 
; random Morse in groups. of five . 
:characters, You may select the 


number of characters to be repro- 
duced (up to 200), the speed (up 
.to 15 words per minute) and to 


| -have letters, numbers or both. A 


“delay between letters and words 


may also be selected. , 
.. The program starts by sound- 
"ing the preset characters,.and on 
«completion they are printed on 
the screen. There is provision to 
‚ re-tun without resetting the vari- 


` ables, and an auto-run facility 


һас prints the checklist on- 

„screen, pauses, then re-runs. 

2 When you call for 200 charac- 
‘ters. the computer is using very 
‘close to 4 Kbytes. For this reason. 
- line numbers меге kept: low: to 


x crash“ programming : has: been 
‘done. If you make an incorrect en- 


“take up less memory and no‘anti-: 


try during the menu setup, the ` 


` program may indicate an error, in 
which case you А, һауе tore-run 
the program, . 


nlf you're using a CoCo use athe ( 


word * pause' instead of 'delay' in 
;lines:12, 29:and 80; the CoCo 


“doesn't seem to like the, word , 


‘delay’, Я 
Basil Heath, 
- Hamilton, Old 


ШІ 
zOPHRINT"AUTO-RUN" : PRINT"YESCT)": 
PRINT"NQ-(2)" 

^ CLEAR 500 

^ DATA 63,62.60,56,4H,232, 33,235.53 
9,57,6,17, 21, 9,2, 20,11.16,4,30,1 
E 1L ST, 10, 8,9, S LE 
4.25.29,19 
6 INPUT RC 


7 DIM HSC ye) 


H FOR I+1 TO 36:READ J:LET BBCI) 
CHRO) р 
9 NEXT ERGS 


IH ENPUIT"SPEEDCRPMT)EMAN. Tad?" oS 
FED, 

Ul LET. ЗГІСЕО»7.5/5РЕЕП 

12 INPHT"”DELAY(CO: 1302" j; DELAY: DEL 
AY - DELAY * 90 

15: ENPUT"NO: -CHARACTERSOMAX. 200» 
"AN | 

14 INPIIT"LETTERS(I NUMBERS DIOR 
BOTH Se SL 

15 DIM THON) 

16 CLS:PRINT TAR“ 5 "MORSE TUTOR 
PROGRAM": FOR [=l TO N 

17 LEF TRI’) CHR$IRND 10-100. 
Трева tatlo “2))+10s-1x(L+*1)): NE 
52 А 

1H FOR !*1 TO N 

19 LET. X:ASCGCB$SCASCUT$(I)))) 


20 GOSUB 65 


ЧЭ ДР. SINTCI/50x5 "FHEN Z9 
2" Tb bit THEN 52 
27 МЕХА | 


20 PNR Zed TO ТКТ РЕС (DIE 
AY 450 Y:NEXT Z 

"n GOTO 25 
эш FOR I-l TO N 


u^ ТЕ ASCOTS CL) ‘10. THEN 34 


YC Ям, 35 


(a2 UF 


а Фа UNPUT PSUR URES 


.57 FOR 


ps 


57 PRINT CHRSCASCCTSCIÓ V ATO U 


(38 GOTO 40, °, FELELT WE АЕТ 


` 
39 PRINT CHRSCASC(THEDD) 6540; 
40 1F LeINTCL/250"25 THEN 46 
AY AF INTE THEN 44 
IN THEN 49 
44 NEXT i- 


44 PRINT" "; 


“45 Goro 42 


246 PRINT 


47 GOTO 42 


49 IF R2 THEN 90 
SO PRINT: PRINT: PRINT 

51 PRINT"PRESS KEYCIOCENTER TO R 
E-TRY":PRINT "PRESS KEY(2) CENTER 
» To EXIT" 

THEN 16! 

53 DATA 80,82,79,71.82,65,77.92, 
ь6,н9,5Ң,4%,22,66,45,72,59,6%,3А 
42,22;86,78,52,65:66,72 

4 ‘CLS: PRINT: PRINT 

141 TO 27 

59 READ А 

61 PRINT CHR$(A); 

6$ NEXT L:END 

6*5 LET Y:X/2:LET X«INTtYà0 
687 Q-COxSPEEBx€C1* CY- Kk) x0) 
та SOUND 200,0 s 
75 IF X=. THEN Hn 


77 FOR Z-1 TO INTCAOzSPEED) : NEXT 


78 GOTO 65 
HO FON Zit TO INTCI2O0xSPEED-* (DEL 
AVa uv USNEXT Z’ 

AS RETURN 

ЗО PRINT: PRINT: PRINT"PRESS- ' BREA 
K'-TO EXIT" 

1 :GOTO 


9% FOR ізі TO 10000: NEXT 


16 


( Pres ran Rea MCio = bu} 177% V2 Мено Fes Ye Jan MP ‘So. 


MORSE TUTOR КЕМ MORSE TUTOR PROGRRM:CLS І 
PRINT"RUTO-RUH" :PRINT"YESC 12" :РЕІМТ"МОС2 >" 
CLERR 500 
(again) DATA 63.62,60.56,48,32,33,35,39,47,6,17.21,9,2,20,11,16,4,30 
DATA 13,18,7,5,15,22,27,10,8,3,12,24.14,25,29,19 ` 


In the June '85 issue of Your Com- INPUTR: DIMES 3€ > 
puter діл published a Morse Tutor FORI=1TD36:RERD.J:LETBS$( I )=CHR$C JD 


А : NEXTI:CLS 

program written by Basil Heath INPIJT" SPEEDC WPM 5% MAX 1027"; SPEED 

for the TRS-80 МС10. It was. LET SPEEDaS. 0/SPEED 

wrongly listed as being intended INRUT DELAK es 15 т Б i DELAY : GET DELAYS 

for the VZ200. As a result, Basil 2 INPUT^NO:-CHRRRCTERSCMRX 200>";N — —— 

received- several letters and НЕШЕ LE TTERSCI NUMBERS SUR BOTHC25*";L 

phone calls from VZ200 users CLS:PRINTTRBCS)"MORSE TUTOR PROGRAM" :FORI=1TON 

who pointed out first that the LETTS? I )xCHR$¿“ RND. 10Ж-1Ж(1<212%26Ж-1%(152222410Х-1Х51 1 DD 
print had been reduced so much NEXTI:FORIZ1TON 

it was difficult to read, and LETARASC( BSC RSCC TSC 225) 


505! 
second that the program didn't PSS TSS EES 


work (for obvious reasons). IFI=NTHEN32 
Basil has very kindly collabo- NEXTI 

rated with a friend who owns a FOR Z=1 TD INTC 2GQKSPEED+¢ DELAY#S »>:NEXTZ 
i iti i GOTO25 

VZ200 in rewriting his program for 32 FORISITOH 

that machine. Here we've listed IF RSCCTSCIO?210 THEN39 

both versions (with the right РКІМТСНК%< Н5С< TSC I 9447); 

machine headings, this time). 607040 


i 3 PRINTCHRSC ASC TSC I 00+54): 
our apologies to the many peo IF ISINTCI^725»5X25THEN4€ 
ple we mislead by this mistake. IF I«INTCIZSOESTHEN44 

IF IzNTHEN45 

NEXTI 

PRINT" "i; 

GOTO42 

PRINT 

GOTO42 

IF R<>2THENSO: PRINT: PRINT: PRINT 
PRINT"PRESS КЕТҮ 1 ›< ENTER) TO RE-TRY" 
PRINT"PRESS KEYC2 ХЕМТЕК> TO EXIT" 
INPUTP: IFP«2THEN16 

DATA 80.82,79,71,82,65,77,32,66,89.58,45,32,66,46.72,69,65 
DATA 84,72.32.86,75,52,65,66,72 
CLS:PRINT:PRINT 

FORIx1TO2? 

RERDR 

PRINT CHR$CR»; 

NEXTI:END 

LETYxX/2:LETXZINTCY) 
QzC2XSPEEDX« 1+ Y-X X42) 

SOUND25,G 

IFXz1THEN80 

FORZ21 TOINTC 49Ж5РЕЕО 2: НЕХТ2 

607065” 

FORZ=1TOINT( 120*SPEED+( DELAYX3 22: NEXTZ 
- RETURN 
PRIHT:PRINT:PRINT"PRESS-'BRERK'-TO EXIT". 
FORIx1TO10008:NEXTI:GOTO16 
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TRS-80 MCIO : 


CLS 

PRINT” AUTO-RUN" : PRINT"YES( 1)": PRINT"NO-(2)” 

CLEAR 500 

DATA 6$3,62,6U,56,4B, 32,33,35,39,47,6,17,21,9,2,20,11.16,4,30,13,18,7,5,15, 22,2 
7,10.8,3.12,24,14.25,29,19 

G INPUT R 

7 DIM B$(36) 


Ji N е 


8 FOR 1-1 TO 36:RFAD J:LET BS(1)=CHRS(J) 
9) NEXT TOES 


10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
29 
25 
27 
29 
30 
32 


65 


I NPUT"SPEEDCWPM»? (МАХ 155?" ; SPEED 

LET SPEED-7.5/SPEED 

INPUT"DELAY:O 15)?" ; DELAY: DELAY -DELAY x50 
INPUT"NO: -CHARACTERS(MAX 200»";N 
INPUT"LETTERSt 1) МОМВЕКЅ( 206 BOTH(2)?";L 
DIM TS(N) 

CLS:PRINT TAB(C5)"MORSE TUTOR РВОСВАМ” : РОВ 1-1 ТОМ 
LET T$(1) + СНЕФ (ЕМО 10х- 1 ж (141) +. 26х-]к (Lc 022) + 10х-1ж(1=1)):МЕХТ I 
FOR 1-1 TO N 

LET X=ASC(BS(ASC(TS(1)))) 

GOSUB 65 

IF 1=INT(1/51)=5 THEN 29 

IF I*N THEN 32 

NEXT I 

FOR Z*1 TO INT(200*SPEED* (DELAY x5)? : NEXT Z 
GOTO 25 

FOR 1:1 TO N 

IF ASCCT$(CI??:10 THEN: 39 

PRINT CHRS(ASC(TS(1))+47); 

GOTO 40 

PRINT CHR$(ASC(Ə(T$(I))+54); 

IF I: INT(1/25»?*25 THEN 46 

IF 1-1МТ(1/539«5 THEN 44 

IF I*N THEN 49 

NEXT I 

PRINT” Tå 

GOTO 42 

PRINT 

GUTO 42 

IF В: +2 THEN 90 

PRINT: PRINT: PRIN1 

PRINT"PRESS KEY(1)(ENTER)TO RE-TRY":PRINT "PRESS KEY(2)(ENTER)TO EXIT” 
INFUT P: IF P 2 THEN 16 

DATA 80.82.79,71,82,65.77,32,66,89.58,45, 32,66.46,72,69,65,84,72,32,86,75, 52, 
66,72 

CLS: PRINT: PRINT 

FOR 1-1 TO 27 

READ A 

PRINT СНЕ$‹А›; 

NEXT I:END 

LET Y-X/2:LET X INTCY) 

Q-(23 SPEED^ C1 - CY -X) 4)) 

SOUND 200.0 

IF X-1 THEN ВО 

FOR 2:1 TO 1INT(40=SPEED):NEXT Z 

GOTO 65 

FOR 2-1 TO 1NT¢120SPEED: ( DELAY 332)  : NEXT Z 
RETURN 

PRINT:PRINT:P'RINT"PRESS-'BREAK'- TO EXIT" 
FOR 1-1 TO 10000:NEXT I:GOTO 16 
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ELECTRIC 
TUNNEL 


The object of the game is to travel 
along the tunnel, avoiding the 
electrically charged walls. 

The program uses joysticks for 
control, but by modifying lines 
170 and 180 the program could 
use the keyboard: 

170 KYS=INKEYS 
180 IF KYS=”M” THEN Z=Z-] 
ELSE IF KYS=”” THEN=Z 2+1 

The РЕЕК in line 190 checks to 
see if the position in front of you 
is clear. Scoring is based on the 
distance you travel along the 
tunnel. 


Bruce Daniel, 
Mudgee, NSW 


Ü ' ELECTRIC TUNNEL 
1 ° WRITTEN BY — BRUCE DANIEL 

2 , 

18 (LS : COLOR 2,8. 

20 P$ = CHRS(143) 

38 FOR 1-1 TO 18 : PS=PS+CHRS(176) 

AB NEXT I:P$=P$+CHRS(143) 

58 IF INKEYSO'* THEN X=RND(@) :GOTO 58 

188 PP-15-INT(LEN(P$)/2) 

118 2-16 

138 PRINT TAB(PP);P$ :POKE 2857241, 99 

148 IF RND(2)=1 THEN PP=PP+RND(3)-2 

158 IF РР<3 THENPP-3ELSE IFPP)(32-LEN(P$)-3) THENPP-32-LEN(P$)-3 
188 IF CN<16 THEN 298 

178 (Ке INP(43) AND INP(45) AND 31 

188 IF JK=27 THEN Z=Z-1ELSE IF JK=23 THEN Z=Z+1 

198 L-PEEK(2878442):1F LO144 AND LO 176 AND 152128 THEN 488 
290 CN=CN+1 SIF QU3BO INT(CN/38). THEN 138 

380 Q=-LEN(P$) 

318 IF @‹=5 THEN 130 

320 PS=LEFTS (PS, 1) MIDS (P$, 2, Q-3) RIGHTS (PS, 1) 

зза GTO 138 

480 PRINT:POKE 28572%1,45 

418 COLOR, 1:50UND31 , 1:S0UND31 , 1 :SOUND23, 1:50UND23, 1 

420 SOUND13, 1:500ND13, 1:50UNDA, 5 

425 ' 

448 SOUND 8,2 

858 COLOR,B 


468 FORI=1T05 

878 FORTD-1T025:NEXTTD 

889 PRINT@@,’-+# CRASH CRASH CRASH CRASH ++ "$ 
498 FORTD=1T025:NEXTID . 

588 PRINTƏ0, ° 

518 FORTD=17025:NEXTTD, I 

528 PRINT3128, "SCORE: * ;' INVERSE "SCORE" 

538 SC=INT(CN®1.2-DN) 5 PRINTSC; 

548 PRINT3488,' PRESS «RETURN? TO TRY AGAIN"; 
558 IF INKEYSOCHRS(13) THEN 558 

560 RUN 


NUMBER SLIDE 


Number slide is a computer ver- 
sion ofthe puzzles that used to be 
given away with breakfast cereal. 
This version has been adapted 
from a 2Х81 program printed їп 
this magazine a few years ago. 
The idea is to rearrange the 


numbers in correct.order after the 

computer has mixed them up. 

The program should work on 

other computers without much 
modification. 

Bruce Daniel 

Mudgee NSW 


18 DIMA(9):8S5$-CHR$ (B) *CHR$(B)*CHR$ (127) +СНЯ$ (127) 


12 Z$=' 
15 (5 
28 FORX-1TO9 
38 LETA(X)=0 


48 NEXTY 

58 LETA(5) 2-32 

68 FORX-1TO9 

78 IFX=STHENGOTO138 

88 LETP-RND(8) 

98 F0RY=1T09 

108 IFA(Y)-PTHENGOTOBO 
118 NEXTY 

128 LETA(X)=P 

138 МЕХТХ 

148 PRINT3225,2$12$;:PRINTaO, ; 
298 FORX=1T03 

218 FORY=1T03 

228 РЕІМТСНАФ(А(Ү+(Х-1) +3) 464) 5*. °; 
248 МЕХТҮ 

258 IFX=1THENPRINT® 123° 
268 IFX-2THENPRINT' 456° 
278 IFX-JTHENPRINT* 789° 
280 PRINT 

290 NEXTX 

390 PRINT 

318 PRINT3256, "MOVE FROM: 


УС Aug. SF 224 


328 INPUTF 
348 IFF)9THENGOTO318 

358 PRINT 

368 PRINT2328,'MOVE TO: — "iBS$; 
378 INPUTT 


380 PRINT: IF (F=3ANDT=4) 0R(F24ANDT=3) ORT=@THENS18 
398 IFT>9OR(F=6ANDT=7) OR(F=7ANDT=6) THENGOTO368 


480 IFNOTA(T)=-32THENGOT036@ 

418 IFABS(F-T)=10RABS(F-T)=3THENGOT043 
820 5010318 ` 

438 (ЕТА(Т)-А(Ғ) 

440 LETA(F)2-32 

458 CLS 

478 FORI7-1TO7 

488 IFA(17)>A(17+1) TRENGOTO280 

498 NEXTI7 

500 PRINT'CONGRATULATIONS, ° 

518 PRINTTAB(S)*YOU HAVE SOLVED THE PUZZLE." 
528 PRINT 

538 INPUT'TRY AGAIN (Y/N) ';X$ 

548 IFX$O *N' THENRUN 

558 CLS:END 


- CUBE 


By Maurice McMullan 


This program was written for the VZ-200 
computer and requires a l6k expansion 
module. The program is a variation 
of one written by J. Schultz which 
was published in Australian Personal 
Computer 1982. 

It allows the player to manipulate the 
Rubiks Cube by using various com- 
mands. The commands consist of a series 


СІ: 


of instructions which rotate the sides of 
the cube in a clockwise direction through 
a number oí right angles. 

Special instructions permit: 
1. Set up a random cube (to test the 
players ability to solve the cube). 
2. Store a cube on cassette. 
3. Restore a cube from cassette. 
4. To go back to the previous cube if 


current instructions do not produce the 
desired effect. 
5.Ifallelse fails the program will arrive at 
a "solved" cube (by cheating of course). 
A simple error detection routine deter- 
mines if a side designatoris incorrect and 
if so the command containing it is 
ignored. 


6 PRINTQG291,"WRITTEN BY M.MC.MULLAN": FORA=1TO3000: NEXT 


7 CLS:PRINTQG229,"INS'IPi.Cl TONS? CYORN)"; 


8 F$-INKEYS:K$-INKEYS$: IFK$=""THEN8 


9 IFKS$-"Y"THENGOTO2000 


10 CLS:COLOR,1:CLEAR 420 


20 CSCIYS"B":C$S(2)-"Bp":C$69905" R'"TC$(A)2 nL CECS = DA TORCE JE "0" 
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40 DIM1(9,6) 
50 REM SET UP FOR PERFECT CUBE 

55 FORA-1TO9:FORB-1TO6:1(A,B) -B: NEXT: NEXT 

60 GOSUBA400:GOTO720 

100 REM SUBROUTINE TO TURN FACE 

110 ITEMP=I(8,N):JTEMP=1(7,N) | 

120 FORINC=6TO1STEP-1:I(INC-2,N)=I(INC,N):NEXT 
130 I(2,N)=ITEMP:I(1,N)=JTEMP:RETURN 

200 REM SUBROUTINE TO CHANGE AN EDGE 

210 FORREP-1TOGO:RESTORE ` 

230 1 COM: ITHENFORDUM- 1TO (COM- 1) «24 : READSKIP: NEXT DUM 
240 FORI2NC-1TO3 

250 READPO,FA:ITEMP-I(PO,FA) 

260 FORINC-1TO3 

270 ВЕАрР2,Е2:1 (РО, ҒА) =1(Р2,Е2) 

280 PO-P2:FA-F2:NEXT INC:I(P2,F2)-ITEMP:NEXT I2NC 
320 N-COM:GOSUB100:NEXT REP:RETURN | 

400 REM SUBROUTINE FOR PRINTING CUBE 

410 RESTORE 


420 RESTORE: FORDUM-21TO144:READSKIP: NEXT 
420 -FFORY=OTO64STEP32: FORX=29098T029100: READPO, FA 


470 POKEX-*Y,CD(I(PO,FA?)2:NEXT: NEXT 

485 FORA=OTO256STEP128: FORY=OTO64STEP32 

495 FORX-29034TOZ29036: READPO,FA 

5505 POKEX-Y-A,CD¢CI(PO,FA)) : NEXT: NEXT: NEXT 

515 FORA=OTO8STEP8: FORY-OTO6A4STEP32: FORX-28966TO28968 

530 READPO, FA: POKEX+A+Y,CD¢I(PO,FA) ): NEXT: NEXT: NEXT: RETURN 
600 REMSET UP INSTRUCTION TO GO BACK TO PREVIOUS SET UP 
605 X$-" /' :U=0 


610 0=0+2: АФ=МІр$(Ү$,0-1,2) 


18 
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787 X$-X$-"/":GOTO727 


Е%Ф-І.ЕЕТ%Ф(А%,1):0р%-МІр%(А%,2,1) 


J=4-(ASC(D$)-48) 

G$=CHR$(J+48) 

H$=E$+G$ 

Х$=Н$+Х$ 
IFU+1=LEN(Y$)THENRETURNELSE610, ` 
PRINTGO," 

X$-"":PRINTGO,"ENTER COMMANDS "; : INPUTX$ 
LL=0 

LLsEL«i:IFMID$4OX$,LL, 1)€5"/"THENT28 


LL=LL-1 


740 AA-AA*2:2$-MID$(X$,AA-1,2) 

745 REM Q = END GAME 

750 IFLEFT$(ZS,1)-"Q"THENCLS: COLOR, O0: END 
755 REM Y - PERFECT CUBE 

760 IFLEFT$(Z$,1)="Y"THEN5O 

765 REM I - RETURN TO LAST ATTEMPT 


770 IFLEFTS$(Z$,125-"I"THENGOSUB600:GOTO727 
777 REM X= RANDOM CUBE 


TIS, IELEFTS(Z$, 1)="K"THEN784 

779 REM T = STORE CURRENT CUBE ON TAPE 
780 IFLEFT$(Z$,1)="T"THEN960 

781 REM P = RESTORE CUBE FROM TAPE 

782 IFLEFT$ (Z$, 1) ="P"THEN990 

783 Y$-X$:GOTO820:REM SAVE CURRRENT CUBE 
784 REM SET UP RANDOM CUBE 


785 X$-"FZ2":FORJ-1TO9 


786 F=RND(5)+1:X$=X$+CSCINT(F) )+CHRSCINTCRND(2)+49) >: NEXT 
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REM DETERMINE МНІСН+51рЕ AND HOW FAR TO ROTATE 

G=0:A=0 

A=A+1: IFMID$(Z$,1,1)=C$(A)THENG=1 

IFG=OANDA< 6THEN830 

IFG=1THENCOM=A: GOTO870 

JP-0:PRINTGO," "ERROR ІМ ">; :GOSUB2500: IFJP=1THEN720 
GOTO727 

ZS=MID$(Z$,2,1) 


IFASC(Z$) >=49ANDASC( ZS) ‹ =51THENGO=ASC(Z$) - A8: GOTO910 


IFASC (2% ) -48THEN9S3OELSEZS$-CHRS$(ASC(Z$)-4):GOTO890 


GOSUB200 

GOSUB400 

IFAAc«LLTHEN74D 

GOTO720 

REM STORE CUBE ON TAPE: 
CLS:PRINTG166,"START ТАРЕ TO RECORD"; 
PRINTG200,"PRESENT SOLUTION"; 


PRINTG259,"PRESS ANY KEY TO CONTINUE" 
F$=INKEY$: D$=INKEY$: IFD$=""THEN965 


А$= "": FORA=1T0O9: FORB=1T06: A$=A$+CHR$(1(A,B)+48) : NEXT: NEXT 
PRINT#"TEMSOL", AS 

Z$-"Q":GOTO750 

REM RESTORE CUBE FROM TAPE 

CLS:PRINTG166,"START TAPE TO INPUT"; 

PRINT@200, "STORED SOLUTION"; 

PRINT@259,"PRESS ANY KEY TO CONTINUE” 
FS-INKEY$:DS$-INKEYS$:IFD$-""THEN994 

INPUT#"TEMSOL" , A$ 


L=1:FORA=1TO9: FORB=1T06:1¢A,B)=ASC(MID$(A$,L,1))-48:L=L+i 


› NEXT:NEXT 
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998 CLS:GOSUB400:GOTO720 
1000 REMDATA FOR MOVES 

1010 DATA3,4,5,6,7,3,5,5,4,4,6,6,8,3,6,5,5,4,7,6,1,3,7,5 
1020 DA&TAYT,4,;1,5;24,95,1,;,6,8,4,2,5,4.,9,2:,6.14,4,3;5,5,3,3,06 
1030. DATA?7,;2.93,;5,3,1,.,7;6,8,2,4,5,4,1,8,;6,1,25,5;5,5,1,1,0 
l040 DATA7;1,7,9,59,2,5;0,8,.1,8,5,2,2,.4.0,1,;1,.1,5,5,2, 5.6 
1050: DATAI;3.1.2.1,45.1:;3.2:39.2 39.2; 2.1.39,9; 9,9: A зат 
1060 DATAS.3.5,1,9.4.5,09.0,3.0,1, 0051642, 7,947.1:752 27,8 
1100 REM DATA FOR PRINTING 

1110 DATAT1:5;2.5.8,5.815,9,9.4.5,7,5,6,5, 5,5 

MIQOG DATAS;S.2,2,119.45,9.,9.2,8.0.5,970: 21 7. 2 

1130 DATA3,6,2,6,1,6,4,6,9,6,8,6,5,6,6,6,7,6 

1140 АТАТ ТЕБ Ба НЕТО АШ 1, 3,2, 1,974 


1150 DATAS,A, 6,A Ta 4945954185459) 452545154 


1160 DATA5;3,6,3,7,9,4,9,9,9,8,9,3,5,2,3; 1,3 


2000 REM INSTRUCTIONS 


2005 CLS:PRINT"xxxxxxxx INSTRUCTIONS xxxxxxxxx":PRINT 
2010 PRINT"THIS PROGRAM ALLOWS ONE TO PLAY" 


2020 PRINT"WITH THE RUBIC CUBE" 

2030 PRINT"SIDES ARE LETTERED:-" 

2040 PRINT" B BACK" 

2050 PRINT" jg FRONT" 

2060 PRINT" UPPER" 

2070 PRINT" LEFT" 

2080 PRINT" R RIGHT" 

2090 PRINT" D DOWN" 

2100 PRINT:PRINT"xxxPRESS «C: TO CONTINUE xxx":PRINT 
2110 FS=INKEY$: D$=INKEY$: IFD$< >"C"THEN2110 
2120 CLS:PRINT" INSTRUCTIONS ARE ENTERED AS :- 


2130 PRINT" 1.ROTATION OF SIDES." 
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2140 PRINT"SIDES ARE ROTATED IN A CLOCKWISE" 
2150 PRINT"DIRECTION THROUGH A NUMBER OF RIGHT" 
2160 PRINT"ANGLES.THE SENSE OF THE ROTATION" 
2170 PRINT"OF A FACE IS TAKEN WHEN ONE " 

2180 PRINT"LOOKS DIRECTLY AT THAT FACE" 

2184 PRINT:PRINT"xxxx' PRESS «C» TO CONTINUE xxx":PRINT 
2185 F$-INKEYS$:D$-INKEYS$: IFD$«»"C"THEN2185 

2190 CLS:PRINT" AN EXAMPLE OF AN INSTRUCTION IS" 
2200 PRINT" R2L3U1B3/":PRINT 

2205 PRINT" MUST END COMMANDS WITH A /":PRINT 
2210 PRINT"THIS MEANS ROTATE: -" 

2215 PRINT" RIGHT FACE THROUGH 180DEG" 

2220 PRINT" LEFT FACE THROUGH 270DEG" 

2225 PRINT" UPPER FACE THROUGH 90DEG" 

2230 PRINT" BACK FACE THROUGH 270DEG" 


2250 PRINT:PRINT"xxxx PRESS <C> TO CONTINUE xxxx":PRINT 
2260 F$-INKEYS$:D$-INKEYS$: IFD$«»"C"THEN2260 

2270 CLS:PRINT" 2. SPECIAL INSTRUCTIONS" 

2280 PRINT" QUIT GAME" 

2290 PRINT" SET UP PERFECT CUBE" 

2300 PRINT" RETURN TO LAST ATTEMPT" 

2310 PRINT" SET UP RANDOM CUBE" 

2320 PRINT" STORE CUBE ON TAPE" 

2330 PRINT” RESTORE CUBE FROM TAPE" 

2333 PRINT:PRINT"xxxxPRESS <C> TO CONTINUExxxx": PRINT 
2334 F$-INKEYS$:DS$-INKEYS$: IFDS< >"C"THEN2334 


чхе < O 


2340 GOTO10 
2500 REM ERROR ROUTINE 
2510 FORJ=1TOLLSTEP2 


2520 IFMID$((X$,J,2)-Z$THEN2540 
2530 NEXTJ:PRINTGO,"NO ERROR FOUND?":JP-1: RETURN 


2540 IFJ-1THENJP-1:RETURN 
2545 Ү%Ф-МІр%(Х%,1,20-10-"/" 


2550 GOSUB60U: RETURN 
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YAHTZEE ix 
This is a VZ200 version for the 
dice game Yahtzee, designed for 
an unlimited number of players. 
Each player throws his or her 
dice up to three times each turn. 
After the first and second throws 
you can hold any dice you wish to 
keep, re-throwing the balance. Af- 
terthethird throw you must enter 
your score in the table provided. 
Once a score has been re- 
corded for a particular category. 
that category can't be used again. 
The game ends after 13 rounds. 
Because of the limitations of 
the printer used to produce the 
listing it's wise to include the 
graphics [shift Js] in lines 2020 
and 2050. The sections under- 
lined should be inserted in in- 
verse text. 
The program occupies 5.9 
Kbytes of memory. 


lan Thompson, 
Collaroy Plateau, NSW 


Main Variable Used 


N$( ) Player's name 

SIS( ) Titles ot category 

525() Description ot category 

5С%() Update score for each category 
DF( ) Spots on dice 

SC( ) Score 

ND( ) Random number for dice 

NP Number of players 

IP User update of scoresheet 


Turn number 


Title grapnies 
100 Initiafises screen background 
Clears memory for variables 


130 Input players’ names 

140 Initialises variables 

160-170 Input players names 

165 Limits players name to 11 characters 

180-190 Set number of player turns per number of 
players 

210 Random number generator for dice throw 

290-320 Print score table 

330-420 User update of score 

470-570 Updates total score 

600-650 Displays final score and placings 

1000-1120 Data statements for score table 

1130-1160 Data statements for spots on dice 

2020-2050 Displays dice 

9000-20040 User update of score subroutine 


21000-22140 Instructions ua M 


Your Comput ty O $5 
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* 3 4€ 3 3E 3E 3E 3E JE 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E EE 3E 3 3E 3 3€ 
“+ V2-200 YAHTZEE ж 
'* IAN THOMPSON - COLLAROY + 
* 3 3E 3 3E 3 3E 3E 3€ 3E 3E 3E 3E 3E ЗЕ 9E ЗЕ 3€ 3€ 3E 9€ ЗЕ 9E 3€ 3E 3E 3E 3 ¥ 
CLS: SOUND 25,6:COLOR,O 
FOR X=1 TO 32:POKE 28671%Х,204:РОКЕ 291514 
,195 
6 POKE 28672,174:POKE 28703,173:POKE 29152,1 
71:POKE 29183,167 
7 NEXT X 
8 FOR N-28704 TO 29120 STEP 32 
9 POKE N,202 
NEXT N 
FOR 0-228735 TO 29151 STEP 32 
POKE 0,197 
NEXT O 
PRINT@106," YAHTZEE " 
A$=" LAN A. THOMPSON " 
B$-"COLLAROY PLATEAU" 
FOR N=1 TO LEN(A$) 
PRINTe231,RIGHT$(A$,N) ; 
PRINT@263, RIGHTS (B$,N) : 
NEXT 
FOR І-і TO 500:МЕХТІ 
PRINTe454,"INSTRUCTIONS (Y/N)?" 
IF INKEY$«»"" THEN 38 
A$-INKEYS 
IF A$="N" THEN SOUND30,1:GOTO100 
IF A$<>"Y" THEN 40 
SOUND30,1 
GOSUB 21000: ‘INSTRUCTIONS 
100 POKE 30744,0:COLOR 5,0:CLEAR 1000 
120 R=RND (O) 
130 CLS:PRINT@128,"NO. OF PLAYERS":: INPUT NP 
135 SOUND 31,1 
140 DIM SC$(13,NP),81$(12) ,52%(15) ,N$ (NP) , DF 
(6,6) ,SC(NP) , YF (NP) 
145 GOSUB 1000 
150 FOR I-1 TO NP 
160 CLS:PRINT@128,"PLAYER #"; I; : INPUT"'S NAM 
E":N$(ID 
162 SOUND 31,1 
165 IF LEN(N$(I))211 THEN SOUND 20,1;10,1:60 
TO 160 
NEXT 
FOR TURN = 1 TO 13 
FOR PL-1 TO NP 
FOR R=1 TO S:ND(R)-RND(é) : NEXT 
GOSUB 2000 
GOSUB 3000 
PRINT@416, “REMEMBER THESE, THEN" 
PRINT"HIT АМҮ KEY TO CONTINUE": AS=INKEYS 
AS-INKEYS:1F A$="" THEN 260 
FOR Ізі TO 6:М(1)-О:МЕХТ 
FOR Ісі TO S:N(NDCI))SN(NDCID) +1: МЕХТ 
CLS:PRINT"CHOOSE A CATEGORY, " ; № (PL) 
FOR I=1 TO 13:PRINTUSING"##) ":I; 
PRINTS1$(1):S25$(I) ; SC$(I,PL) 
NEXT 
PRINT: INPUT"WHICH [1-131l";IP 
IP<1 OR IP>13 THEN 290 
IP=12 THEN 12000 
SC$(IP,PL)«5"" THEN 15000 
IP<7 THEN SC$(IP,PL) =STRS(IP#N(IP)) 
IP=7 OR IP=8 THEN 7000 
IP=9 THEN 9000 
IP=10 THEN 10000 
IP-11 THEN 11000 
ІР-12 THEN 12000 


430 NEXT FL:NEXT TURN 
440 FOR FL=1 TO NF:FOR I=1 TO 13 
460 NEXT 
470 FOR I-1 TO 6 
480 SC (FL) =SC (FL) +VAL (SCF ( I, PL) ) : NEXT 
490 IF SC(FL) >62 THEN SC (РО) =5С (РО) +55 
500 FOR 1=7 ТО 12 
510 SC(FL)=SC(FL)+VAL (SC$(I,F'L)) 
520 МЕХТ:МЕХТ 
550 FOR I=1 TO NF-1 
sao HI-O:FOR 2-1 TO NF 
550 IF SC(J) >НІ THEN HI-SZ(J):F-J 
560 NEXT 
570 D=SC(1):SC(I) =SC(F):SC.F) =D 
SOC DESNE (1): М (1) =NS CF) ENF CE) =DE 
585 NEXT 
590 SOUND 20.1:SOUND 19,1:SGUND 20.1 
600 CLS:FRINT"AND THE FLACINGS AFE"; 
620 FRINT:FRINT:FOR I=1 TO NF 
620 FRINTUSING “##": I: 
640 FRINT"J "iNS(ID:TAE(GS):SC(ID 
650 NEXT 
660 PRINTe480,"ANOTHER GAME (Y/N)?": 
670 GOSUB 20000 
680 IF YN£-"Y" THEN FLIN 
690 CLZ:FPINTG162.' HANKS FOR THS Game 
":END 
ісоа “DATA STATEMENTS 
1040 FOR ізі TO 13 
1050 READ S1$(I),S2#$(I):NEXT 
1060 DATA"ACES",". [SUM OF 1:S1 
. CSUM OF Z'S] -" 
1070 DATA"IHGEEZ",".LSUM OF 57532 
". CSUM OF 4:81 -" 
1080 DATA"FIVES",". CSUM OF 5'S1 
". [SUM OF 6'81 -" 
1090 DATA"Z OF А KIND",". [SUM] ,"4 OF А 
KIND",". [SUMI -" 
1100 DATA"FULL HOUSE",". 51 ,"SM. SIR 
AIGHI",". C30] =" 
1110 DATA"LGE. STRAIGHT",". £40] ۾‎ "YAHTZEE 
WM, [50] -" 
1120 DATA"CHANCE",". [SUMI -" 
1130 FOR I-1 TO 6:FOR J=1 TO I 
1140 READ DF (I,J):zNEXT: NEXT 
1150 DATA 56,22,99.1,66,121,32.35,97,99 
1160 DATA 1,2,66,129,121,1,2,65,067,129,121 
RETURN 
CLS:PRINT N$(FL)s"'S ROLL" 
FOR R=96 TO 224 STEF Z2:FOR S-2 TO 26 S 


COLOR 5 

PRINT@R+S," "s “THREE SHIFT 775 

NEXT: NEXT 

FOR D=1 TO S:FOR N=1 TO ND (D) 

COLOR 3 

PRINT@914+D#6+DF (ND(D) .N) ," ": ONE SHIFT 


NEXT: NEXT 

RETURN 

FOR K-1 TO 2:F=1 

FOR J-1 TO 5 

P-252«*J*6:RR(J)-O 

PRINTeP,"^^^" 

PRINT:PRINT 

PRINT"REROLL THIS ONE CY/NIJ?" 

PRINT"CS FOR SCOREBOARDI":PRINT"CM FOR 
MISTAKE": YN#=INKEYS 
2060 ҮМ%-1МКЕҮ% ы 
5070 IF YN$i»"Y" AND ҮМ%<>"М" AND YN$Z»"S" A 
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ND YN$<>"M" THENSO6O 

5072 ТНЕМ SOUND 20,1 

5074 THEN SOUND 10,1 

3076 š THEN SOUND 15.1 

5078 : THEN SOUND 20,2;10,1 
5080 IF ҮМ%<>"5“ THEN 2150 

5090 CLS:PRINT TAB(S);Nf#$(FL):" S SCORES" 
5100 FORI=1TO12Z:FPRINTUSING"##] 4:1; 

3105 PRINT S1£$(1),;S2£$(I):SC$(I,FPL) 


5110 МЕХТ:РКІМТ"НІТ ANY KEY TO RETURN: ": АЗ-І 
' NEEYS 
3120 AS=INKEYS:2 IF А%-"" THEN 3120 ELSE GOSUB 


2000: GOTO 3020 

3120 РКІМТЕР," М 

5140 IF YN£-"M" THEN 2010 
5150 IF YN#="Y" THEN RR(J)=1 
5160 NEXT 


3170 FOR 1=1 TO S:IF RR(I)-1 THEN ND(I)=RND( 


6):F=0 

3180 NEXT: IF F THEN K-2 

3190 GOSUB 2000 

3200 NEXT 

3210 RETURN 

7000 FOR I=1 TO 6: IFN(I) >IP-S THEN 7030 
7010 NEXT 

7020 GOTO 16000 

7030 5С-О 

7040 FOR 1=1 TO S:SC-SC*ND(I):NEXT 
7050 SC$(IP,PL)-STR$(SC) 

7060 GOTO 430 

9000 FOR I=1 TO 6 

9010 IF N(I)>2 THEN N(I)=N(I)-3:GOTO 9040 
9020 NEXT 

9030 GOTO 16000 

9040 FOR I-1 TO 6 

9050 IF N(I)>1 THEN 9080 

9060 NEXT 

9070 GOTO 16000 

9080 SC$(9,PL)-" 25" 

9090 GOTO 430 

9090 GOTO 450 

10000 FOR I=1 TO 3:F=1:FOR 4-І TO 1+5 
10010 IF N(J)=O THEN Ғ-О 

10020 МЕХТ 

10030 IF F THEN 10060 

10040 NEXT 

10050 GOTO 16000 

10060 SC$(10,FL)-" 30" 

10070 GOTO 430 

11000 FOR I=1 TO 2:F=1:FOR J=I TO I+4 
11010 IF N(J)-O THEN Ғ-о 

11020 NEXT 

11050 IF F THEN 11060 

11040 NEXT 

11050 GOTO 16000 

11060 SC$(11,PL)-2" 40" 

11070 GOTO 430 

12000 FOR I-1 TO 6 

12010 IF N(I)=S THEN 12040 

12020 NEXT 

12030 GOTO 16000 

12040 SC$(12,PL)2" 50" 


12050 IF YF(PL) THEN SC$(12,PL)-STR$ (VAL (SCF 


(12,PL) ) +100) 

12060 YF(PL)=1 

12070 GOTO 430 

15000 SC=0:FOR I=1 TO 5 
13010 SC=SC+ND (І) : МЕХТ 
15020 SC$(13,PL)=STR$ (SC) 
13030 GOTO 430 


SOUND 15,1:CLS 

РКІМТӨ128,"Ү00”УЕ ALREADY DONE" 
PRINT"THE "/S1$(IP);" "jN$(PL) 

FOR I=1 TO 2000:МЕХТ 

GOTO 290 

SOUND 15,1:CLS 

PRINTé128,"YOU'RE NOT ELIGIBLE FOR" 
PRINT"A "51% (ІР); " "sN$(FL) 

IF IPz12 AND YF(FL) THEN SOUND 0,8:60Т 


PRINT:FRINT:PRINT"DO YOU WANT IT ANYWA 


Y CY/N2?"; 


16040 
16050 
16060 
16070 
16080 
20000 
20010 
20020 
20030 
10,1 

20040 
21000 
21010 
YER" 

21020 


GOSUB 20000 

IF YN$-"N" THEN 290 

SC#(IP,PL)=" O" 

IF ІР-12 THEN YF (PL)=1 

GOTO 430 

YN$= INKE Y$ 

YN$=INKEY$:IF YN$="" THEN 20010 

IF YN$<>"Y" AND ҮМ%<>"М" ТНЕМ 20000 
IF YN$="Y" THEN SOUND 20,1 ELSE SOUND 


RETURN 
CLS: PRINT"INSTRUCTIONS" 
PRINT:PRINT"IN THIS DICE GAME EACH PLA 


PRINT"CAN THRUW ОР TO THREE TIMES EACH 


PRINT"TURN. AFTER THE FIRST THROW, HE" 
PRINT"CAN SET ASIDE ANY DICE HE WISHES 


PRINT"TO KEEF,AND RETHROW THE BALANCE. 


PRINT"HE CAN DO THE SAME AFTER THE" 
PRINT"SECOND AND THIRD THROWS. HE CAN, 


РКІМТ"ОҒ COURSE, STOP BEFORE THE THIRD 


PRINT"THROW IF HE WISHES." 

PRINT"ONCE THE PLAYER HAS DECIDED TO" 
PRINT"STOP, HE MUST DECIDE INTO WHICH" 
PRINT"CATEGORY TO ENTER HIS SCORE." 
GOSUB 22100 

DIM S1#(13) ,52%(153) 

FOR І-і TO 15 

READ 651%(1),52%(1):МЕХТ 

CLS 

PRINT 

FOR I=1 TO 13 

PRINT S1$(1):S82£ (I) : NEXT 
PRINT&ZOO,"LSUM OF HOUSE] -* 
PRINT8334,"L1,2,5,4,5,2 -" 
PRINT@366,"(2,2,4,5,6,] -" 
PRINT@394,"CFIVE OF A KIND] -" 
PRINT@427,"CANY FIVE DICE] -" 

GOSUB 22100 

CLS:PRINT“THE GAME ENDS AFTER 12 ROUND 


РКІМТ"ОМСЕ A SCORE HAS FEEN RECORDED" 
PRINT"FOR A PARTICULAR CATEGORY, THAT" 
PRINT"CATEGORY CAN T BE USED AGAIN." 
GOSUB 22100 

RETURN 

PRINTe485,"FRESS «C^ TO CONTINUE"; 

IF INKEY$<5"C™ THEN 22100 

IF INKEY$-"" THEN 22100 

IF INKEY$-"C" THEN 22130 

SOUND 30,1:RETURN 
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19 CIS PRINT: PRINTTAR (19) zz ЕГЕН 
20 PHINTTAB( Î 


3% PRINT" CATCH THE RUGS FOR POINTS AND" 

-LO PRINT" PRINT 

59 PRINT" CTED 

69 PRINT" PRESS ANY KEY TO CONTINUE": IYORTS1TO19: I$zINKEY$:NEXT 
79 IFINKEY$z"",70 

100 CLEARA60: DIMAS(2,5),B(2), B! (2),C(2) e (5% R$(7),RS(7) 

110 FORT=QTO?: S(T: HS(T)=2 Q: NEXT 


ALLEY J": PRINT 


T1200: RH26: 5С-Ф: TORT OTO, Он Н 3C(T)2RND(12) +19: NEXT 
CLS: PRINT: INPOT"DIFFICULTY 1-5"; DF: IFDF «108рҒ)5,275 
DF2(10-(DFe2) )+20 

POKE30776 , 255 

товта266727020151 51:POKF?,128:NEXYT:COLORS 


R2 


te 
А. сосн 


PRINTe3A9,"RLAI : 
PRINTG380, $: COLORI 


5 PR ІН 
PRINTOL 79, Kh; 
FORT2291 527029183: POKET, 175: NEXT: COLORI 
PRINT@32, USING"# тю" ;S 
FORT«OTO5: РИІ8ТӨТ%32»259,44(0,Т)::МЕХТ 
92 РОВТ=1ТО19: 1.188278: NEXT: IPSC) 5d, h 
IFINKEYSaCHR$(13),809 
IFINKEY$a": дю 
IFINKEY$=" 
UN PRINTG9,USINO"R SAMY; TI; 


т)+С(7),128 
Злой e 


iu voci 

аа СЕЕ (Tm (RRD() 2)32: C1(T)=RND(3)-2 

USES SSE HORNN: (т 

pum ا‎ 120+RKD (8) * 16 Тут: FOKE28671 , 1: POKE28671,2 
сото 

520 888 rone pros: IT EL mn NXT 

810 ты" 2,T);:NETT 

820 S=28967:C=1:GOSUB 

"830 FORT=QTO5: PRINTET. 320259, A$ (1,7) ; NEXT 

8,6 6070395 
990 РОНТабТ05:Р81М207%52»259,А%8(1, ты 


ET 5-28999:С-1:005/В1900 

920 сотоз9 

950 5-29951:С-1:005/В1000 

960 0070395 

1000 5з5%1:С-С%1:ІРРЕЕК(5)42128,00701100 

1995 POKES, 188:TI=TI-1 :PRINTOO, USING WEBB" ;ТІ; 
1008 IFTI=<0, 2000 


1030 G 

1100 PORT-QTO2:IFS- zB(T)*C(T), SCeSC«! : TI=TI+DFELSE1120 

1110 B(T)=28672:C(T)=RNN(12)+1 0: SOUND3Q, 1331, 

1115 PRINT@32 US TIC HIHI"; SC; :RN-RN-. 025: inne, RNz2 

1120 NEXT: POKES , 128:GOTO1 020 

2000 POKES, 128: L-i eset: «1,2005Е15Е2000 
:4,6:6,218,520,1:9,49,1;6,Ь 


222», 
2080 PRINT@387," 
2092 PRINT@419, " 


2095 FORT=1T02000: NEXT 
2190 FONE 59776403 IFSC*1@>HS(7),2200 
2110 CLS:PRI 


2120 PRINPTABOM p 
2130 FORT=OTO? :PRINTST SE Н ECT) 
2140 PRINTO) 50+7= 32, USING eet ; HS (7) ; NEXT 


2160 PRINT@418,"PRESS ANY KEY TO PLAY AGAIN" 
2170 FORTz1TO!0:IS-INKEY$: NEXT 
2180 IFINKEY$z"",2180 
2199 аоТ0279 
2200 CLS: PRINTTAB(1 114 ШЕН "SCORES" 
2210 FORT-ÓTOOS 
2220 IFSCe19)HS (Т), C HS(T+1)=ES(T): {HS (T41)2H$ (T): Fa 
2225 NEXT 
2230 PRINT:PRINT" PLEASE ENTER YOUR NAME ON THE" 
2246 PRINTTAB(12)"SCORE BOARD" 
2250 INPUTH$ (F):H$ (F)-LEFT$(H$ (F) , 12) : RS (F)aSC*10:GOTO2110 


VZ Frog 
by A Alley 


Frog begins with a brief instruction 
screen and asks for the difficulty level (1 
to 5). The program then draws a scene of 
the swamp with the full moon, several 
water plants and a large frog. Unfor- 


tunately, this frog is suffering from a per- 
manent energy crisis. You, as the player, 
must try to keep him alive by making him 
eat as many of the insects flying around 
as possible. This requires a good deal of 


energy, and so too many misses will 
result in the frog's untimely demise. The 
insects get smarter as the game pro- 
ceeds, and tend to duck out of the way 


just before the frog eats them. 


APC та, $é 70) 


P 2 ob- Rog. 


VZ 200/300 


Balloon Safari, The Drop & Flatten 


These three programs have been written for the standard VZ200/300 computers, in BASIC. They each have instructions 
within them. In the third program, SHFT appears in some program lines. This means one should type those letters in 
quotes in conjunction with the SHIFT key. 


Раш Sheppard, 
Christchurch, NZ 


5 CLS:GOSUB2000 :CLS 

9 °?’ 7 “BALLOON SAFARI” ` 

18 > “ BY PAUL SHEPPARD ^ 

11? М U@-KIWISOFT. ^ 

13 CLK*26624 :В06«СНК6(95) 

14 2$2"TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT" 
931 SHFT-*"T^ 

15 Аё=" YJJJES " "SHFT 

16 B$=" 1JJJJJJ " "SHFT 

12 C$-" ЫЈЈЈЈЕ " 'SHFT 

18 GYYF " > SHFT 

13 1YR " PSHFT 

20 ВР=44 

22 COLOR6:PRINT@48B, 28 ; 

25 6051/85000 

48 R-RNOC3) 

50 IFR*1THENBP*BP-1 : IFBP XG2THENBP*8P*2 
20 IFR*3THENBP*BP*1:1FBP?S2THENBP*8P-2 
ве GOSUB1000 

85 I$*INKEYT$:1$* ]NKEYS$ 

S8 1Е1&=" “ANOKE=@THENSOUNO31, 1 :КЕ=1 :0Е= 
BP+13@:AN=An+1 :GOSUBSO00 

188 IFKE=1 THENGOSUB2@@@: IFAM=2@ANOKE=@TH 
Еніггге 

110 IFSH=@THENGOSUB3QQQ 

128 505084288 

138 507048 

1808 COLOR? :PRINT@BP, AS :PRINTQ8P*32,B$ :P 
RINT@BP *64,C€ 

1010 PRINT@BP+96, 08 :PRINTGBP*128,E$:RETU 
RN 

2000 PRINT@OE,” ";:0Е“0Е%32 

2805 IFOE*»SIQOTHENOE =0 :KE «0 :SOUNO1 , 3:PR1 
NT8480, 2$ ; :RETURN 

2818 PRINT@OE, BOS; 

2028 IFNOTCOE> =BL ANODE <=BL +4) THENRE TURN 
2030 EXS-"TEERYT “ >5НҒТ 

2042 PRINT@OE,” “3; :COLOR4 :PRINT@BL,EXS ;: 
Exs="" 

2050 FORT1*1TOS:FORT*1TO20 :POKECLK, I :POK 
ECLK,@:NEXTT,TI 

2060 OF =8:KE=0:K I *K1*1:GOSUBSOQ0 :RETURN 
38080 BL=474:SH=] :SHS="YOQQUTY " > SHFT 
3818 RETURN 

4808 BL=BL-1:COLOR] :PRINT@BL, SHS ;^ FORP=@ 
TOS :NEXT 

4010 IFBL<449,PRINT@BL, " “):5н-0 
4020 RETURN 

5800 PRINT&O, “GATORS ARROWEO"KI” ARROWS 
LEFT"28-aANn 

5010 IFAM>=21 THENENOELSERE TURN 

7888 PRINTTAB(S9)"BRLLOON SAFARI" 

7010 РЕІМТТАВ(9)"-------------- ^ 

2028 PRINT 

2038 PRINT" THIS IS A SINGLE PLAYER GAN 
E" 

2048 PRINT"LHERE YOU, ALONG WITH OR BELL 
en"; 

2058 PRINT"TRAUEL ACROSS THE AFRICAN PLA 
INS”; 

7060 PRINT"IN YOUR BALLOON HIGH IN THE S 
KY. "5 

2028 PRINT" IN SEARCH OF KILLER ALLIGATO 
RS,"j 

2088 PRINT"(CALLEO * GATORS’ BY THE LOCAL 
S)” 

2030 PRINT"UITH ONLY 20 ARROWS, YOU ARE 
TO" 

2108 PRINT"RIO THE SWAMPS OF THESE FENES 
£!" :PRINT . 

2105 PRINT"TO DROP YOUR ARROW ON THE GAT 
OR PRESS THE SPACE КЕТ. 

2118 PRINT@482, " PRESS ANY KEY TO BEG] 
н; 

2120 Is$=INKEY$:IFINKEYs=""GOTO2120@ 

2138 CLS:PRINT@160,” BY THE WAY, THE WIN 
OS CAN MAKE” 

7140 PRINT"YOUR BALLOON GO IN ANY DIRECT 
ION" 

2158 РЕ1МТТАВ(2)”$0 AIM CAREFULLY £!" 
2160 PRINT@482," PRESS ANY KEY TO BEG] 
N"; 

2120 Is=INKEY$:IFINKEY$=""GOTO2120 

7188 RETURN 

18028 FORT=1TOS@@ :NEXT :CLS :PRINT"YOUR 80 
ПВ SUPPLY IS EXHAUSTEO. 

10010 PRINT"YOUR SCORE IS"KI"HITTING"KI^ 
20100" 2.” 

18048 PRINT@4B4, ;:INPUT"PRESS RETURN TO 
START" 04 

10050 RUN 


le? 7 "THE DROP” ` 

20 ' “ BY PAUL SHEPPRRO 7 

38: N UZ-KIWISOFT 7 

48 Т5-28622:85-29183 

50 SC=0:BL=20:BA=15:EB=0:ET=0 

бе 50518828 

28 50508502 

108 "MAIN LOOP 

118 GOSU8200 

120 IFFL=1 THENFL=@ :GOTOS@8 

138 6010100 

202 !ПОМЕ BALL 

205 IFEB>=20,BL=BL+1:ET=ET+1:EB=SC-20@#ET 

207 PRINT@4S,BL ; 

218 FORX=2T030 

228 POKETS*X-1*32x3,32 

238 POKETS*X*3213,BR 

248 Ps=INKEY$:ñs=INKEY$ 

250 IFñ*=" "GOTO300 

260 NEXTX 

228 POKETS*X-1*3213,32 

288 GOTO200 

308 'OROP BALL 

318 FORY*TS*X*32£4TOTS*X*32£t]4STEP32 

320 OP=PEEK(Y) 

338 IFOP>48ANOOP<SBGOT0488 

340 POKEY-32,32 

350 POKEY,BA 

360 NEXTY 

328 POKEY-32,32:SOUNDRNO(S),2 

380 BL*BL-1:1]FBLX1THENFL*] :RETURN 

390 RETURN 

400 'CHECK NUMBER 

405 POKEY-32,32 

418 N*0P-48:SC*SC*N:EB*EB*N :ҒОКТ= 1 Т020 

428 РОКЕТ,ОР 

425 FORF*1TO21-T:NEXTF 

438 РОКЕТ,32:Р0КЕ26624,1:Р0КЕ26624,0 

435 FORF*1TO21-T:NEXTF :NEXTT 

440 GOSUB200 

450 PRINT@S8,SC; 

460 RETURN 

508 'SET UP SCREEN 

51e CLS 

528 FORI*1TO30 

538 PRINT@O+ I, CHR£$CI43); 

535 PRINT&64*1,CHR$C143); 

548 PRINT@479+1 ,CHRS(143)3 

558 NEXT] 

555 PRINT@S16,CHRS( 143); 

560 FORI=@T0478STEP32 

520 PRINT@!,CHRS( 143); 

580 PRINT@1+31,CHR8( 143); 

592 NEXT] 

595 РОКЕ29183,239 

600 PRINT033,"BALLS LEFT ="; 

618 PRINT@S1,"SCORE ="; 

622 FORN=1TOS 

630 50508760 

648 NEXTN 

658 RETURN 

200 PLACE NUMBER 

218 X=RNO(30)+1 :YsRNO(S) *10:PO* TS «X* CT£3 
2) 

220 ІҒРЕЕКСРО) < 326070710 

230 POKEPO,N«48 

248 RETURN 

808 > INSTRUCTIONS 

810 CLS:PRINT:POKE30886,31 

820 PRINT” THE DROP 

838 PRINT:PRINT:PRINT* OROP THE BALL ON 

THE NUMBERS 

835 PRINT:PRINT"EXTRA BALL FOR EVERY 20 

POINTS 

848 PRINT:PRINT" PRESS SPACE TO DROP THE 
BALL 

858 PRINT:PRINT:PRINT" PRESS ANYKEY T 

0 START 

860 ñs=]NKEY$:ñ$=INKEY$:IFñs=""THEN8609 

878 RETURN 

900 'ENO 

925 IFSC>HS,HS=SC 

918 CLS:POKE30886,31 

920 PRINT@139,"GANE OVER 

930 PRINT@19S,"SCORE ="SC" HIGH SCORE = 
“HS 

940 PRINT:PRINT* DO YOU WANT ANOTHER 

GO >“ 

950 A$=INKEYS:A$=INKEYS :IFA$=""THEN950 

960 IFAS="Y"THENIGELSEENO 


18 REN / “FLATTEN” ` 

20 КЕП * Вт P.SHEPPARO ^ 

38 REM S UZ-KIMISOFT ^ 

48 TS=28622:BS=29183:PS=TS+32+1:UR=30912 
+ASC("1") 

S@ 55-191 :GL=29151 :L «32 

бе GOSUB80@ 

188 ІҒРЕЕКС387$4 )THENSP=32:Br=31ELSESP=3 
б:вг1=95 

11@ CLS:PRINT"OIFFICULTY LEVEL (1-6)":$0 
URO31, 1 :POKE30823,1 

128 OI*PEEK(30823): IFOI * І THEN] 2OELSEO*O] 
-48:1FO«10RD? 66070118 

138 ІҒО< 660701586 

148 PRINT"ARE YOU THAT GOOO (Y^/N)";:SOUN 
031,1 :POKE30873, I 

145 A=PEEK(30873):1FA=IGOTO]45ELSEIFA=89 
POKEUR, 2ELSEPOKEUR, 4 

150 CLS 

168 50508500 

200 REM MAIN LOOP 

218 650508302 

220 65010220 

308 REM MOVE PLANE 

385 POKE26624, 1 :РОКЕ26624,0 

318 Р5-Р5%1:1ҒР52В550Т060Ә 

320 P=PEEK(PS) 

338 IFP=SSGOTO6Q@ 

340 AG=INKEYS:AS=INKEYS 

258 JFAS=" "ñNOFL=@THENFL=1]:BO=PS:TU=@ 
369 IFFL=1GOSUB400 

328 POKEPS-2, SP 

398 РОКЕР5-1,155:РОКЕР5, 159 

385 IFPS*1»GLGOTO200 

399 RETURN 

499 КЕП DROP ВОГВ 

405 ЅВ=РЕЕКСВО+32) 

418 POKEBO,SP:REM PATH 

439 BO=BO+32:]FBO>GL+32THENFL *Q:RETURN 
448 POKEBO,Bh':REM ВОПӨ 

458 1Ғ58=78, РОКЕРЅ- 1, SP :РОКЕРЅ-2,5Р:РЅ=Р 
S-CINT((PS-TS)ZL)*#L)*L 

468 RETURN 

580 БЕП SET UP CITY 

585 PRINT@7, "OIFFICULTY LEUEL"O; : IFD*66N 
DA=B9THENPRINT" 2” 

518 FORI=1T038 

528 FORY=@TORNO(2+0)#32STEP32 

538 POKEGL+I-Y,SS 

550 NEXTY:1=#1*RNO((7-0)72) 

S6@ NEXTI 

578 FORI=1TO2S 

588 POKEGL+I,2@ 

S9@ I=I+RNO(6) 

595 NEXTI:RETURN 

680 REM GAME ENO 

618 FORI*PS-1TOGLSTEP32 

628 POKE1-1,180:POKEI, 176 

625 FORT*ITO108:NEXTT 

638 POKEI-1, SP:POKEI,SP 

648 NEXTI 

658 ҒОКТ= 170506 :NEXT 

660 CLS:PRINT8202, "TOU CRASHED 

665 SOUND], 6352,133,351545656 

628 сото7за 

2068 REM LANDEO SAFELY 

718 CLS 

728 PRINT@192, “YOU LeNOEO SAFE, CONGRATU 
LATIONS 

738 PRINT@266, “ANOTHER GO? 

235 SOUNO31,1 

240 AS=INKEYS:AS=INKEYS: IFAS=""GOT0740 
258 IFAS="Y"RUN 

262 SOUNO1,5:END 

8988 КЕП INSTRUCTIONS 

818 CLS:PRINT:PRINTTA8CI2)"FLATTEN" 

820 PRINT:PRINT:PRINT"YOU MUST LANO YOUR 
PLANE SAFELY 

830 PRINT:PRINT" BY OESTROYING THE CITY 
BELOW. 

848 PRINT:PRINT" OROP BOMBS BY PRESSING 
SPACE 

B50 PRINT:PRINT"GAIN EXTRA HEIGHT BY OES 
TROYING 

B60 PRINTTAB(S)"FUEL OUMPS (“CHRS(198)") 
828 PRINT:PRINTTAB(6)"PRESS ANYKEY TO ST 
ART 
875 SOUND31,1 
880 AS=INKETS :AS=]NKEYS:IFAS=""GOTO88O 
898 RETURN 


ETI May 1986 — 93 


LISTING: SIMON 


5 DIME(388),P(3060),N(30B),O08(3008) 


1B as 
11 HS-8 
SIMON 15 T1$4"SIMON" :T2$«" SIHON* : T3$- "BY M.PROCTOR (24/1/86)* 
2p FORTT«1TO28 :PRINTE237, 11$ :PRINT@237, Т2$:МЕХТ 
38 FORTT«1TO22:PRINTS26B,LEFT$(T3$, TT) : NEXT 


This program was inspired by the 
commercial toy of the same 


35 


S0UND4,3;8,3;6,3;9,3;8,3; 15,3; 16,6 


; А LA PRINT@325,"INSTRUCTIONS (Y/N)?" 
name, and involves repeating a Ш 
Sequence of ever-increasing diffi- 58 50508 Jare 
culty. Full operating instructions 2 IFZ$="N"THENB& 
are presented in the program. 66 CLS 
Although written on and for a 62 PRINT:PRINT" IN THIS GAME, THE COMPUTER WILL"; 


VZ-200, the BASIC is simple and 
fairly universal, so conversion to 
other machines will present no 
difficulty. The program's simplic- 
ity also makes it highly flexible, 
providing room for improvement 
and experimentation, which is 
encouraged. 
Michael Proctor, 
Killara, NSW. 


YC тыш 
Ps. 


99 


PRINT*"FLASH A SEQUENCE ON THE SCREEN." 

PRINT" YOU WILL BE REQUIRED TO REPEAT" 

PRINT*IT, BY ENTERING IT INTO THE COR-"; 
PRINT"RESPONDING KEYS." 

PRINT" IF YOU RETURN THE SEQUENCE " 
PRINT*"CORRECTLY, IT WILL THEN INCREASE"; 
PRINT*"BY AN INCREMENT WHICH VARIES " 
PRINT"ACCORDING TO THE SKILL LEVEL YOU“; 
PRINT"HAVE PICHED." 

PRINT" THE SPEEO LEVEL HAY ALSO BE" 
PRINT"SELECTED.* 

РНІМТ8%81,"НІТ ANY KEY TU CONTINUE"; :GOSUB 1080 
CLS:PRINT:INPUT® SKILL LEVEL (1-EASY; 5-HARD)" ; SK 
INPUT" SPEED LEVEL (1-SLOW;S-FAST)'; SP :S0=(5-SP) *5p 
CLS 

PRINT@12, *SIMON* 

FORQ«1TO4 : READP ,P$ 

FÜRV«P-32TUP4 32STEP 32 

FORH=-1T01:PRINTOV+H, "8"; 

NEXT :NEXT 

РНІМТЕР,Р%:МЕХТ 
ОАТА132,"Ц",139,"ш=",32%,"А",331,"5" 
PRINT0412,"HI SCORE:";:PRINTO176, "SKILL LEVEL:"; 
PRINT@24B, "SCORE :"; 


180 Хх„@б:Х=р 

182X2XX«SH 

185 PRINT@253,X:PRINT@125,HS:PRINT@189, SK 

118 FORS=XX+ 1TOX 

126 E(S)=RNO(4) 

138 ІҒЕ(5)-1ТНЕМР(5)-132:М(5)-16:0%(5)-"0":6070165 
146 ІҒЕ(5)-«2ТНЕМР(5)-139:М(5)-28:0%(5)-"шШ“ : СОТО 165 
158 ІҒЕ(5 ) =ЗТНЕМР(5) = 324 :М(5)=23:0$(5)=*А" : 6070165 


IFE(S)=&THENP(S)=331:N(S)=28:D8(S)="S" 
NEXT ç 


179 FORS=1TOX 


180 РКІМТӨР (5), "@" :SOUNDN(S), 1:FORT=1TOSO:NEXT:PRINT@P(S) ,0$(S); 
198 NEXT 

288 FORT«1TO208 

218 FORS=1TOX 

228 2%-ІМКЕҮ5 

230 2$2INKEYS:IF2$« " * THEN238 

248 IF2$-0$(S) THEN289ELSE316 

286 PRINTSP(S), "É* :SOUNON(S) , 4:PRINT@P(S) ,0$(S); 

294 NEXT Бү: 

3Bg FORT«1TO25DiNEXT:XX«X:GOTO182 

310 нб-Хх N | 

328 SOUNO1,2:RESTORE 

338 РНІМТ6583,%ШАМТ TO PLAY AGAIN (Y/N)?";:GOSU840PP 
340 IFZ$e*Y"THEN-CLS:GOTO8G 

358 CLS:PRINT:PRINT* THANKS FOR THE GANE." 

369 GOTO 360 

1880 2$-INWEV$ 

1818 Z$eINHEY$:IFZ$«" "THEN18 19 

1828 RETURN 


CLS:PRIHT:PEIHT" PRESS E" FOR АЙЛ COHTEDL" 
PRIHT:PRIHT" OR 21” FOR канави " 
FRIHT" EMO COPY AYMIALABLE WITH "IHR" 
CS=THKE Ф: CS=TMKE YS 
IFCS="K "GOTO? 
IFCS="I" GOTOH 
IFCS=""GOTOS 

CLE: РЕЕІНТ:РЕІНТ" 


DRAWING 
PROGRAM 


This is my version of a hi-res 
drawing program with a joystick 
option and printout capability 
for the VZ200/300. 

R. Winter 


Morpliett Vale SA Ва: а Г NS ERI Есен" 


FRIHT:PREIHT" JSE ARROW KEYS FOR САИП" 
FRIHT:FRIHT" USE “AS FoR LL = 950 FoR Ler" 


ic VL qo po em 


FRIHT" USE ' FOR DeL — “зе FOR Сив" 
РБІНТ:РБІНМТ" “Re Ті RUB ШЫТ! 
' PRIHT" “РЕ” FOR FRIHTED Cory" 
3 FRIHT" “Jt To CLEAR SCREEN" 
FRIHT&?4Z2z2."- PRESS 'G' To GO -" 
Шаш ІНКЕҮФ: SS-IHKE'SS 
IF s$z2"G'GOTO015 
HODES 13 


Sars Шы, 

TFRS="A"SRER-L SEY -1:GOS5UB1a2 

IFK$z","; -*1:GÜSUgi2z 

IFRS="5 Nectar li (=Y—1 :GDSUB1582 

ТЕБ 1: 50506182 

IFES" Aa] l OSES 

IFk$=" "''zu-1:6051B132 

ІБЕтш" Ет) ESF : GORJE EZ 

IFK$-2"R'"REESETZtL25 

IFKS" P" COPY 

IFK&z"II"rLE:FüRHs1TÜUSGB:HERT:GOTOTT 

Ботой 

ІЕЕ 

ІНЕН ҮЙ 

IFX212rA-127 
ЕД e рК = 


TERT: 


isa CT CO CT c Cn c en i ci 0 <| gcn qs o3 3 C) 
De 
E 
А) 
E: Xx ж 
п. 
a 
т 
= 
ҮҮ, 
dE 
` 
+ 
RS 
22 
i 
i 
Md 
m 
m 


ч 


rere ree — E p op poe w 001] 754 (y y Ll Tee m е е = ра үа рз ра а 


РЕТПЕН 

CLZ:PRIHT:PRIHT" USE LH STICK FOR В DIEECTIUMS" 
гит PRIHT:FREIHT" PRESS °С’ ТП CLEAR SCREEH" 
243 РЕІНТЕФ22, "~ PRESS 'G' TO GO -" 

204 SS-IHKEYS:Z$S2IHEKE'YS 

IF S$z2"G"GÜTOUZH4 

MODES 127 

4=25:'7ү=35 

SET“ 4, 1 2 

R=ú ІНЕ" 43 )RHD321 2 

(Ә-ІНКЕТФ:І Ф-ІНКЕҮФ 


Capo go Narr 
)U (m ce oo T: D) لت‎ cn e c 


ғә 


Сы 


TIPO TD 
m iS O gin 


у Promo mpra 


254 IFH22?&-5-1:GüsLIEgi2e2 

255 ІРя=26й=й-1:7=7-1 : 50506152 
268 IFR-Z +1 : GOSUBLE2 

255 ІРА=2 +1:7=7-1:5050Е152 
278 IFR=3B =l: 50508182 


ІЕҢ=29%=+1 : 59-1 : 50506152 
IFA=ZA =+ 1 : 50506152 
IFH221'2Y41:-9X*1:GÜSUB182 
IFRE15RESET( ХМ, Y 


C Cn oen ei cn een c 


өзім ЖУУН КҮН ГӘ 


Me Um o cü sJ 


а IFLS-"C"CLS:FÜR.I-1TU2B8:HEZST: GO TOES 
a GoüTO2z8 


76 усб 19% 


TEA-POT SONG 


This is a computer variation of 
my four year old daughter's 
favourite song 
R. Winter 
Morphett Vale SA 


— n n = ——.—VITe —[a > = С с аы ы 


MLSS <" — RA STA TED EO А "FORTH Td: HEX TT 
ЈЕ 105: 505116119 

3: HEXTT 

“Т. d ЕТСЕ TER-FÜüT" 

Ë 2;2l.2:23.4:28.4 


FORT-1TOS 
ü PRINTS: 


d — m — — | |i Th ene 


Ty — L а oT СП م‎ 


Lae РЕІНТ" 
103 FRIHT" 
184 FRIHT" 
135 FRIHT" ma 
FREIHT" maa 
БЕТМЕН 


- 
заа 
т 


[кл 


Ж 
E 


THT 28 PRINT" m m. m 
37 РЕ1НТ@З2й, йз РЕІНТ" m mmm 
39 РЕ1НТ@141,"НЕБЕ 15 MY HPHDLE," B PRIHT" Шш ^ mm 
48 ZOülHDZ1.4;21.2:21.2:28,4; 28.4 PRINT" ER " 
41 PRINTS " ERUEN ' FRIHT" gU 


и k 
КЕТЦЕН 
FREIE" к ш 
FREINT" m m 
РЕТ“ к и" 
РЕІНТ" ЕП кн 
ЕЕТШЕН 


42 РЕІНТІ» 
42 FFIHTI 
FRIHTI: 


“J Tı T oO Da ú 


1—1 188" 
"HERE Ime EDT ** 
$.2:198,2;:156.€ 
МИНЕН I GET ALL ч 
Я : rE. STERMED LF " 
z PRINT@I41," " 
a ҒЕІНТ 1 72, " " 
ай SOlHD15:2;18.2:28.29;:21.2:23,4;:22,4 
ЕЕІНТӘЗЕ," "ENS u 
FÜRTzZ1TUZzB:HEXTT 
FEIHTiE4," Bog " 
FÜRTZ1TUZzB:HERTT 
FRIHTig3Z," 4 у п 
ЕПЕТ=1ТПЕ2Йй:НЕХЯТТ 
РЕТНТ® B." ñ D BP g g" 
PRIHT#142. "HEAR НЕ: Лан ^ 
SOUHOSS » 4: zm. 4:22, E 

3 


ЕНТ ыы a 
[à e — — — — — — — I (Жолу) 


"a ca 


пеп cen en cn en 4. 
up xz mun T im um 


AA mm m m ena 
Doy 600 fe زرا‎ Dp) — ú 


" 


ШЕПТЕ n 
РЕ1НТ@б4," TIF ME OVER.... " 
PRINTERS." i 


oa O N (oh — (Q t 


bn 0b 0404 та Oh i‏ ل ي 


аза cà co =. 


m 


"ROWE ME OLIT! ": ZCILIHGZE 4:15, 4; 18, E 
UOWNEET'SPEIHT?454," вая " 

FüRTzZI1TÜZEB:HEXTT 

2 FRIHT&BH4, "v": НСБ, 1: FRIHTGS3E, "V SEDLIHGIS: 2: PRIHMTIES, "МН 
SnuHD14.1:PRIHMT9481, "V" : SDLIHO13; 1: FÜRTS1TUZB:HEXTT : SDUHMDIZ. $ 
FORTH17TO1588 : HEXTT сеа 
ЕЕТНТЕ4Е ЙН." ":PRIHT" HIT "^ TO ROH AGAIN" 3 

AS=THEE sara = THEE YS : IFAS="""GOTOS 


a e IG Mee rg tgp xp ete са co v 
"Buon fe i ЫЗ 


йй CLS 
й1 РЕЇНТ 


YCL 1955. ae 


PING TENNIS | , 1 POKE30744,1:CLS 


А two player game of tennis with 99 XX=1:X=1 
no net! You can move as close to LOO E Еви ПЕТ D27 Ed 
105 FORZ-28672T029152STEP32: POKEZ, 175: NEXT 


your opposition as you like. You 
cun sla Wik tha Bell intothe 110 FORZ=28703T029183STEP32: POKEZ , 191: NEXT 


walls on the sides. The first per- 115 COLOR3: PRINT@O, * " : PRINT8O, BC: PRINT@6,CC 
son to three sets wins. The first 120 COLOR4: PRINTG16," * iPRINT828, DC: PRINTG22,EC 
person to 21 points wins a set. 210 POKE28622* (32XYX*XY),32 
Like tennis, you have to win the 215 POKE28672+ (32XYY*XX),15 
set by two or more points or the 220 ҮХ=ҮҮ:ХҮ=ХХ 
set cc ntinues. This game re- 225 IFYY2>14THENY=RND (2) -2 
quire. joysticks. . 226 IFYY<2THENYY=1: Y=RND(2)-1 
Because of my printers’ limita- 230 IFXX>30THENS0O 
tions, | could not include graph- 235 IFXX<1THEN400 
ics sy abols in the program prir -- 240 XX=XX+X:YY=YY+Y 
out su here is a list of them: 245 A=(INP (43) AND31) 
line 115 250 IFA=30THENPOKE28704+ (32XB*C) , 32: B-B-1 
"Shift J(x16)" 255 IFA=29THENPOKE28704+ (32XB*C),32: B-B*1 
line 120 256 ІҒА=27ТНЕМРОКЕ 28704 + (32¥B+C) ,32:C=C-1 
"Shift J(x16)" 257 IFA-23THENPOKE28704* (32XB*C),32:C2C*1 
260 ІЕВ214ТНЕМВ-14 
R. Duncan 262 IFC<1THENC=1 
Crafers SA 265 IFB<OTHENB=0 


267 ІЕС>29ТНЕМС-29 

270 РОКЕ28704%(32%ҰВ%С),175 

275 IFABS(B*1-YY)X42ANDC-XXTHENX-2* 1: Y=RND (3) -2 
280 F=(INP (46) AND31) 

285 IFF=30THENPOKE28704+ (32¥D+E) ,32:D=D-1 

290 IFF=29THENPOKE28704+ (32¥D+E) ,32:р=р+1 

295 IFF=27THENPOKE28704+ (32XD*E) , 32: E-E-1 

300 IFF=23THENPOKE28704+ (32XD*E),32: E-E*41 

305 IFD?14THEND-14 

307 IFEX2THENE-2 

310 IFD<OTHEND=0 

312 IFE>30THENE=30 

315 РОКЕ28704+ (32XD*E) , 191 

320 IFABS(D+1-YY)<2ANDE=XXTHENX=-1 : Y=RND (3) -2 
371 6070210 

400 DC=DC+1: IFDC>20ANDDC-BC>1THENDC=0: BC=0:EC=EC+1 
405 IFEC?2THENEND 

410 XX-21:X-21:6G0T0100 

500 BC=BC+1: IFBC>20ANDBC-DC>1THENDC=0: BC=0:CC=CC+1 
505 IFCC>2THENEND 

510 XxX=30:xX=-1:GOTO100 


i yess 19th 


CONCENTRATION 


The program called Concentra- 
tion and is based on the age old 
game of the same name. Be- 
tween ten and fifty cards can be 
selected to appear on the screen. 
Behind these cards are randomly 
hidden pairs of cards. The game 
is finished when all the pairs of 
cards have been uncovered. 
This program is a real test of 
your concentration. 
L. Vella 
Leopold Vic. 


89 

1060 
129 
14@ 
150 
188 
150 
200 
220 
240 
260 
280 
2998 
295 
308 
318 


320 


REM A GAME OF CONCENTRATION 
REM BY L.J. VELLA 

REM 1386 

POKE38744, 1 

REM 17-24 PREPRRE FOR INTRODUCTION 

DATA 28572,28688,28928,29944,175,198,227,245 
DIM .К49:0ІМ H( 4) | 
РОВ В=1 ТО 4 

READ JCB) 

МЕХТ 

FOR B=1 TO 4 

READ НСВ» 

NEXT 

IF РЕЕК( 28672)-159 GOTO 47 

CLS 

REM 28-39 DRAWS INTRODUCTION 

GOTO 34 

POKE AF FIG 

AH=AH+1: IF AH=16 THEN RH-8:RF-RF-16 
AF=AF+1 

FII-RI*1: IFRI-128 GOTO 34 

GOTO 29 

SOUND 31,1 

AJ=AJ+1 

IF AJ=5 THEN GOTO 46 

AGSHC AJ 2: AP SICA? 

ВН=@:В1=@ 

СОТО 29 

GOSUB 10180 

CLS:PRINTG18Q0,"DO YOU WANT INSTRUCTIONS” 
PRINTG172,"(Y OR NO":FOR B=1 TO 398:NEXT 
ЕӛзІМКЕҮ% 

H#=INKEYS'IF H$="" GOTO 49 

IF H32"Y"OR H$="N" GOTO 70 


CLS:PRINT?9S9,"YOU DID NOT PRESS (Y OR ND" 
GOSIUB 12300 

GOTO 47? 

IF HS$2"Y"GOSUB 19629 

CLS 


РОКЕЗ0744,1 

60508 10488 

GOSUB 10240 

DIM Н<99):КЕМ 75-186 NUMBER POSITION 

DATA 28786,28709,28712,28715,28718,28?21,287?24,28727,28? 30 

DATA 28733, 29770,29773,28776,29777, 28782, 29785, 28733, 29791 

DATA 28794, 28797 , 28334, 28337, 28840, 28843, 28846, 28849, 23852 
DATA 28855, 23858, 28861 , 288398, 28901, 28904 ,28907 28910, 28913 
DATA 28916,28919,28922, 28925, 28962, 28965, 28968, 28971 , 28974 


DATA 223977 ,289880, 28933, 28996, 28989 

FOR В=1 TO 5@ 

READ RCB» 

NEXT B 

КЕМ 200-298 GRAPHIC CHARACTERS 

DIM С<25› ç 
DATA 208,2392,175,191,255,223,143, 227, 217,188, 165, 133, 172 


DATA 243,140,231,179,163,252,131,185, 250,136,169,184 
FOR В=1 TO 25 

READ CLB) 

NEXT 

REM 200-390 SHUFFLES CRRDS 

DIM OCAK > 

FOR B=1 TO AK 

E=RNDCAL 2 


334 IF CCE2-8 СОТО 320 


346 
356 
260 
378 
3308 
390 
208 
205 
718 
728 


IF CCE) 2300 THEN CCE22CCE2-200 :1=1 

DC В2-С<Е2 

IF Ізі THEN СХЕ 2=0 

IF 1=0 THEN CCE 2=CCE 2+200 

1=0 

МЕХТ 

DIM НФС 4) 

REM 710-735 SCOREBOARD IMFORMATION 

В=КМО‹ 23: IF В=2 THEM X21 

РЕІНТ2ЗЭЗ, " " 


сы жыны БЫ А aic КЕНШ А ш DR E PT таза. 
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2724 IF W=1 THEN Х=@ 
725 PRINT@443,B$;" "jY 
726 ІҒИ<21 PRINT&464,R$;" "22 
727 РЕІНТІ425,"< SCOREBOARD >" 
728 IF Z-Y-RL GOTO 12100 
729 IF Х-1 РЕ1НТ®353,Н% 
230 IF Х=ӣ PRINT@3SS, ES 
735 IF Wel PRINTE464, "ATTEMPTS"; 
738 REM 739-834 NUMBER SELECTION 
739 C=1 
740 1FR=4ANDA=10RR=4ANDAR=1ORR=4ANDG=10RR=4AMDGG=1 : С=З 
741 A=@:AA=O : K=p : =2 : GG=A : NP=B 
742 IFC-1:H$(122" ": H&(2 22" " : H&C 322" HEC 4 Dz" 
743 IFC-3:H8C 3 >=" " i H&( 4 je" " 
744 ІЕС=1 PRINTE418, " a 
746 IFC-3 PRIMTG422," " 
247 IFC-1THEN U-418 
748 IFC-3 Ш=422 
?5й FOR Е-С TO 4 
xps 755 IF R<=2 PRINT@SSS, "SELECT YOUR IBAA HUMEER н 
DENS i 760 IF R?-3 PRINT&3SS,"SELECT YOUR MUDI] HUMBER e 
p 765 FS-INKEYS 
778 G$-IHKEYS:IF G$-"" THEN 765 
775 IF G$-"B"ORGS-"1"ORGS-"Z"ORGS-"S"ORGS-"4"ÜRGS-"S" THEN K=1 
780 IFGS="6"ORGS="7"ORGS="3"ORGS="9" THEN К=1 
785 IF K=1 THEN 790 ELSE 765 
ee | 798 РЕІМТ80,6% 
E uten 795 SOUND 31,1 
888 Џ=0+1 
810 IF У-420 LET U-422 
815 HS(RO-GS 
820 C$-H$C12*H$C2 )*H$C 3 24H8C 4 ) 


T 
e 


DS REN s 825 D$-LEFT$(CS,2) 

278 > P 838 ES-RIGHTSCCS,2) 

КЕТЕ % i3 i 834 S=VALC DS > 

[сла 835 REM 836-9702 NUMBER PARAMETERS CHECK 

дд 836 IF R=2 GOSUB 856:1F AR=1 UR G=1 UR GG=1 UR A=1 GOTO 739 


937 IF Е=2 СОТО 1628 
844 T=YALCES) 
| } 841 IF R=4 GOSUB 856:1Е RR=1 OR G-1 OR GG-1 OR A=1 СОТО 740 
Ке ТЕС КИЛ ӘК A 842 К=й 
Ж ы ГА RT: 850 МЕХТ 
ECCE GU Саар” 852 PRINTE325, " " 
XN rene MU 855 GOTO 1820 
PEEDU : 856 L-RCS ):M=RCT) 
: 857 IF Е-2 H=PEEK(L >: Q-FEEKXCL-1 5 
Ta E asus 859 Р=РЕЕКС М): G=PEEKCIM-1 9 
lt ee E 859 IF К-2:1Е М<48 OR H>57 THEN LET Я=1 
E ae 860 IF R-4:1F P<48 OR P>57 THEN LET Ғ-1 
961 IF S>AK OR T>AK THEN С=1 
862 IF F=4 AND S=T THEN Rh-1 
863 IF £-8 OR R=4 AND Т-й THEN GG=1 
$66 IF GG-1PRINTEZS5, "POLAMI IAAF ":GÜSUE12308 
| 870 ІЕб-іРБІНТЕЗ25, "ИНЕНІ ЖШ STAM METAR" | НК: GDSUB12260 
ОГАН eu i: 872 IF AASLPRINT@SSS, "HEIN OM GUT LED EIE И 15:71014" : 50508122300 
араа s 252 IF Fi=1BHLG=GBRBNDEFi=ƏRHDGG=Ə THEN LETNP=1 
КОЕ УН 268 IFHP-2IPRIHTE3ES, "Hi EEDA METTE CU E OA" + GOSUE 1 220 
978 RETURH 
1919 REM 1920-1120 DISPLAY SHARE 
1020 IF R22 POKE FKS2,0CS):PÜKE RCS)-1,DC S2: SOUHC1, 1: GOTO 842 
1040 PUKE ACTI OKT3 POKE RCTO-L,0CTÓ | 
1858 IF М=1 THEN AČ=AČ+1 
1060 IF PEEKKL? = PEEK(M? GOSUE 3008 ELSE 1100 
GOTO 726 
SOUND 18,1 
PRIHTÈZSS, THESE ТИС- ЕРЕ UT FOTCHEDE 
FOR E-1 TO V:MEZT 
PRIHTESES," " 
POKE L,H:POKE 1-1,0:ҒОКЕ М,Р:РОКЕ М-1,0 
REM 1148-1168 ИНО GOES НЕХТ 
IF х=й THEM H=L:GOTU 728 
5 IF Х=1 THEN Х-й:0070 726 
Diete REM 2000-3180 SCOREBUARD 
pec 3004 PRIMTG418, " " 
- 390? IF Х=й PFRIHT02352," ";B$;" YOU MATCHED A PAIR" 


BUM eae oo 
"cic inc cn Q A 


Da GA PA ул — GÀ ул рл рл 
A rm a —— — — — — (X 


m 

L 
ш 
ub 


qi 
G 
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IF A21 PRIHT@352," ";H$;" ‘YOU MATCHED A PAIR" 
SOWHO 16,2515. 2/20,2; 51, 8:29, 2425, P127, 2] 28,2 
IF W=1 БОТО 3140 
IF 4-8 THEM '='+1 
IF 421 THEN 2=2+1 
IF Z*Y5RHL RETURH 
IFA=0 FRIHTI; 335, "ТОПШАСЫН HAYE’ ANOTHER 1,1) u 
IFA-1 FRIHTG335, "YID EE ЛІ BM TCI Sd Ae) # 
3118 SUUHD 10,2;209,2 
3115 FOR B=1 TÜ V:MEXT 
3128 RETURN 
3149 Y=Y+1 
3160 RETURN Е 
%; COLOR 8,1 
PRINTESS,"Rh GAME OF" 4 
FRIHTG193, "CONCENTRATION" i 
РЕІНТӘ4ЗЗ; "Вт L.J VELLA" 
5 FUR Б=1 TO Z993: HERT 
BO ELS 
35 RETURN 
10249 COLOR 2,6 ` 
102680 FRINT" uwa nrFr'' 
16256 РЕ1НТ@З2,"Ш іш гш сш 4ш 5ш CN ги сш эш! саи" 
103080 РЕ1НТї#&4,‚ T iumauaÑ[ ' 
19318 IF НК $= 20 ЕБІНТІР5, “M1 181201381481 5ш! 581 TEHL 951 Soom" 
18329 4 ҒРІНТЕ 125 , " mwa aF: 
18348 IF HK2-30 FFEIHT0@G1628,"mN218W22WR2OSE234E2SE2SN2S 7 ec Reo ЗО" 
КИТЕР ИС... 
10388 IF HkK2-240 FRINTEZZ4, "B51 EJZEJZEG4KISOEOORJ/R:SR;ORAJCONMN" 
10400 IF HK2-49 FRIHTIZ 
18428 IF HK-58  FRIHT 
12442 IF Rk=SD РБІНТЕЗ2Й 
134335 РЕІНТІРЗ593," FLERSE WAIT WHILE I AM # 
18458 РКІНТӘЗЗ0," SHUFFLIHG THE CARDS " 
19469 RETURN : 
1388 FRIHT" SELECT THE NUMBER OF FLATERS C1 DR 
19451 FoR E21 TÜ zBB:HEXT 
1452 FS-IHKEYS 
19453 H$-IHKEYS$:IF H$z"" GOTO 10452 
19434 Wz"VRL&H$? 
19455 IF H-1 OR Wee GOTO 10520 
10454 ПГІ5-:РКІМТІР 25, "ҮШУ DID HOT PICK A 127 OR 2)" 
18425 GÜSUB 12380:CLS:GOTO 184989 
185260 CLS:FÜR Еті TU 388:HEXT 
18521 CLS:FRIHT" ENTER THE HAME ОҒ THE FIRST" 
3522 INPUT" PLAYER AHC PRESS RETURN ";БФ 
| TFLEMS E =S TU 10521 
IF ПЕНСЕФ2411 GOTO 15545 
Ш5:РЕІНТІРІ ЙИ, "ҮШШЕ НЕМЕ HAC МОВЕ THRH" 
РЕІНТВ 125, "ТЕН LETTERS" 
DISIE 12200: CLS: GITI Lasse 
Л IF И=1 THEM к=: 50701550 
Sa CLS:FEIHT" ENTER THE NAME ОЕ SECOHD" 
SS IHFUT" FLAYER RHHD FRESZ RETURH "GAS 
leases IFLEH AS i=l ITOH 
19562 IF LEHZRHS2«11 GOTO 19580 
E CLS: PRINT Le, “SOUR HAME HAC MORE THAN" 
555 PRIHTEL “ТЕН CET TERS" 
JJB GO 3 : CDL s:GUTOU18558 
19 (LS: :PRIHTGSS, "WOULD “ОЈ FLERSE SELECT THE" 
ЕБІНТІ131, "AMMOUHT OF TIME THE Z'YMEOLS 
ЕКІНТІ163, “STAT DISPLAYED ON THE ZCREEH" 


n Fa Û 
min c а 


ат 


= 1 SECUHDS" 
= Z SECUHDS" 
= 3 SECUHDS" 
= 4 SECUHCSZ" 
yos = 5 SELCÜUHCD'z" 
18524 ЕзсінкЕтФ 
1825325 HSsIHKEYS:IF HS="" GOTO 10592 
1n22? V=VALCHS 261008 
189515 IF „у= ANG %5-250й THEM GOTO 168523 ELSE 18534 
1853223 CLS 
Lögin DCLS:PRINTGS932,"MÜLILD ҮШ) FLERSE SELECT HOM" 
ігейі РЕІНТІР 121, "MANY SOURRES ҮП) WOULD LIKE" f 
10602 PRINTES, "ТО FLAY АНС THEM FRESS":FRINT@195, "RETURN" 
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81 


82 


105093 
18504 
12605 
186406 
10687 
18609 
19510 
18611 
10612 
10619 
10620 
10620 
18635 
1064й 
19664 
10654 
16704 
10728 

18740 
10769 


1957 
19560 


- 
(OQ 


тора U V LO UD VO Gea 


= 
Dx 


Cum mcum 


um 
اد‎ 


à [Aa e e e e e — — — — — = r 
ор Dà UD Gy J CD T. GY Dà = 


HELV Aas Ti TI er 
Se Qa à iQ Xi Q CQ C i C IX: X; 


с. 
боб! (Л 


PRIHT&?227,"uDA YOU CHH IHLY SELECT" 
FRIHTI»252,"18,20,28,48,0R Sg" 


PRINT&222," " 
ИРЕЕТ IUS MID LET ET ; AK 
IF Bk=10 OR BHK-zODRHK-3B DR AK=4@ UR AK=50 THEN GOTO 10612 


CLS:PRIHTe91238,"'TUJ DID НОТ SELECT" 
РЕІНТЕ 152, "19,2й,50,49,08 Se" GOSUB 12300 
GOTO 12509 


“ALSAKZ2 


CLS: RETURH 

CLS: AB=G 

COLOR.G 

PRIHT" IHSTRUCTIOHS" 

FRIHT" ESSE RSME SEN ' 

PRINT" ‘OUR GAME OF COHCEHTFRTIOH 15" 
FRINT#S6, "VERT ERSY TO FLAY. SIMPLY ATTEMPT" 
РЕ1ЧТ@12&,"ТО MATCH THE FAIRS OF SYMBOLS" 
FRIMT@1é0,"HIODEN BEHIND THE CHRDS.IT CAH" 
FFIHTi#132, "ЕЕ FLATEC EY ONE OR TWO PERSONS." 
FRIHTivzz4, "np РЕР УИ 

&," INITIALLY THE COMFUTER THROWS" 
»2239,"H DICE TO SELECT WHO GUES FIRST." 
FRIHT(í: ,"HEXT THE COMPUTER MILL ASK IN" 
FF:IHTI; 2, "TURH, EACH FLAYER TO PICK THEIR" 
ЕБІНТІМЗ54, "FIRST ANG ZzECÜUHD HUMBER, WHICH" 
LÜSUB 1200% 

FRIHT"REFRESEHTS ТИП CHEDS.IF THESE" 


35 РЕІНТІРЗ2,"ТИО LAROS HAYE IDENTICAL SYMBOLS" 


PRINT#E4, "THE CARDS: WILL STAY CISPLAYED" 
PRIHT@35, "ЯНО THE COMPUTER WILL ALLOCATE" 
FRINTEIZS, "FA POINT TO THE FERSOM WHO SELEC-" 
FFEIHTE 1843, "-ТЕС THEIL AS WELL AS GIVING THAT" 
?122,"PERSUM АНОТНЕЕ TURH.IF THE TWO" 
MM EE ШЕШ THE SAME THE Скво: HILL: 


3 "BEF. THE IDEA ПЕ ТНЕ GAME IS TO" 
‚ "REMEMBER к, SYMBOLS ARE UNDER" 
.Sü AS TO ASSIST IH" 


BOWEL: 
PRINT "CARDS LATER OM. THE PLAYER WITH" 

FRIHT#S2,"THE GREATEST HUMBER OF FUIHTS HT" 
PRIHT@Ee4, "THE EMO OF THE GAME МІН5." 
FEIHTGSGS, "pj uva un 

FRIHT&123," IF ОНЫТ ОНЕ FLATTER FLAS, THE" 
PRINT@168, “COMPUTER SHOWS НОМ MRHY ATTEMPTS" 
FRIHT?192,"MEKE МАСЕ TO DISFLHY ALL THE FA-" 
РЕІНТ224, "ІНЕ OF SYMBOLS. iiyaa WHEN A HUME-" 

FRIHT 2,"ER ЕЕТИЕЕН 1 š 9 15 REGUIRED," 

PRIMT@S32, "SELECT A ТЕЕП FIRST.FOR EZXRMFLE 81,835,095, 
FFIHT0 SSE, "ld 1423 33598 TO 51 2624 2720 B9 БЕЙИШ ИЕ" 
НБ-1 

РЕІНТЕЯ16," PRESS- SPOLE ETO- NT ENTIER 
FSzIHKE'TS 

H$S-IHKETS:IF HS="" GOTO 12820 

IF H$z" " GOTO 120%% 

IF AB=1 AHO H$-"I" GOTO 10620 

GOTO leben 

CLS: ЕТЈЕН 

IF M22 AHD 22Ү ЕКІНТІЕ:52," "SASS" ‘YOU WOM " 
IF Wee AHD fee ЕЕЇ1НТЇ?З "  "j;B$;" ҮШУ МОН ав 
IF Wee AHC =z РКІНТЕЗ52," "OU BOTH НІН IT'S A DRAW Ë 
IF Wee РЕІНТЕЯ41З," 

IF И=1 РЕ1НТ@ 252, " - " 
IF Hz1FRIHTE?A1Z2,E$;" е 

IF M21FRIHTEA34Z2," OU FIHMISHED IH";RC;"HTTEMFTS" 
FPRIHT(3234," ШШМАалаалы лалы мал алсын See" 
SIMIC z8,1;18.1;20,1;18,1;20,12;18,1 

FSsIHKE'TS 

H$-IHKET$:IF H$-2""GÜTO 12240 

IF H$z" “THEM FUH ELSE 12240 

SOHO 21, 1;223,1;27,1;29,1;23,1; 21,1; 12, 117,1; 19, 1; 12,1 
SOU 11,159, T $5159.15321;151 

RETUKH 


YCB6 198F 4 of 4 


SUPER SNAKE 
TRAPPER . 


Super Snake Trapper is a two- 
player game of skill. You have to 
move your snake around the 
screen without hitting the walls, 
the other snake or yourself. If you 
do hit something your score goes 
down. If it reaches zero you lose. 
If you are about to crash you can 
press the fire button and you will 
be put somewhere randomly on 
the screen, but the computer 
might land you on something 
and you will lose points. Joy- 
sticks are required to play this 
game. 

Because of my printer's limita- 
tions | could not include graph- 
ics symbols in the program print- 
out so here is a list of them: 
line 15 
"Shift A,Shift Y (x21),Shift S" 
line 20 
"Shift LCtrl:: SUPER SNAKE 
TRAPPER Ctrl:,Shift" 
line 25 
"Shift D,Shift T(x2!),Shift F” 
line 30 
"Shift J, BY ROBERT DUNCAN, 
Shift ]" 


line 55 

"Shift J" 

line 60 

"Shift J“ 

line 700 

"Shift J(x2)"""Shift J(x2)" 

line 710 

"Shift J(x2)""Shift J(x2)" 
R. Duncan 
Crafers SA 
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OKE 30244,1:CLS 

PRINT@292, "HIT ANY KEY TO CONTINUE" 
COLOR RNDt6)+2:PRINT@36, " . 
PRINT868," SUPER« SNAKE 4 TRAPPER " 
PRINTG100,* 2 spaces . 
PRINT8167,* BY ROBERT DUNCAN * 
PRINT8203,*(19/12/84)* 
РЕ1МТ@292," 
K$=INKEY$:IF INKEY$=""THEN 10 
PRINT@354, "ТҮРЕ IN PLAYER 1'S NAME". 
COLOR 3:PRINTG423,; :INPUT S$:PRINTG423,* * 
PRINT8371,"2*:COLOR 4:PRINT8455,; :INPUT T$:PRINT8455," * 
PRINT@294, "PRESS <<S>> TO START" 
SOUND 15,1:SOUND 16,1 
K$=INKEY$: IF INKEYS(?"S'THEN 75 

US=37500: VS=37500 

CLS:MODE(1):COLOR 2:FOR А=0 TO 122Z2:SET(A,O):SET(A,63):NEXT 
AZ=3750:FOR A=1 ТО é2:SET(O,A):SET(127,A):NEXT 

FOR A=1 TO 62:SET(0,A) :SET(127, A1 :NEXT 
Wz17:X2171Y2110:2212:M121:X120:Y12-1:2120 

AZ-AZ-1:COLOR 3:U=(INP(43)AND 31) 

IFU=15 THEN X-RND(62) :W-RND(1264) 

IF 9-30 THEN W1=0:X1=-1 

IF U=29 THEN W1=0:X1=1 

IF U=27 THEN Wi=-1:X1=0 

IF U-23 THEN W1=1:X1=0 

IF U=26 THEN М1=-1:Х1=-1 

IF U=25 THEN W1=-1:X1=1 

IF U=22 THEN W1=1:X1=-1 

IF U-21 THEN W1=1:X1=1 

W=W+W1:X=X+X1 

IF W=Y AND X=Z THEN 300 

IF POINT(W,X)=2:US=US-AZ:N$=S$:GOTO 400 ELSE160 

IF POINT(W,X)=3:US=US-AZ:N$=S$:GOTO 500 ELSE 165 

IF POINT(W,X)24:US-US-AZ:N$-S$:GOTO 600 ELSE 170 

SET (M, X) 

COLOR 4:V-(INP(46)AND 31) 

IF У-15 THEN Y-RND(126) : 2=АМр (62) 

IF V=30 THEN Ү1=0:21=-1 

IF У-29 THEN Ү1-0:21-1 

IF V=27 THEN Ү1=-1:21=0 

IF V=23 THEN Ү1=1:21=0 

IF У-26 THEN Ү1--1:21--1 

IF V=25 THEN Yl=-1:Z1=1 

IF У-22 THEN Ү1=1:21=-1 

IF V=21 THEN Ү1=1:21=1 

Y=Y+Y1:Z=Z+Z1 

IF W=Y AND X=Z THEN 300 

IF РОІМТ(Ү,2)-2:У5-У5-А2:М%-Т%:60Т0 400 ELSE 240 

IF POINT(Y,Z)=4:VS=VS-AZIN$=T$:GOTO 500 ELSE 245 

IF POINT(Y,2)23:VS-VS-AZ:N$-T$:GOTO 600 ELSE 250 

SET (Y,Z) 

GOTO 120 

MODE (0) :CLS: VS=VS-AZ:US=US-AZ 

PRINT@38,"YOU HAD А COLLISSION" 

GOTO 700 

MODE(O):CLS:PRINTG32,N$; ", YOU HIT THE WALL“:GOTO 700 

MODE (0):CLS:PRINT@32,N$}",YOU HIT YOUR OWN TAIL':GOTO 700 
MODE (0) :CLS:PRINT@32,N$;",YOU HIT THE OTHER SNAKE":GOTO 700 
COLOR 3:PRINT@203,"  'i:PRINTUSING*HHHBH, *;US] PRINT" * 
COLOR 4:PRINTG267,*  *;:PRINTUSING'HHHHH,*;US4:PRINT* ®" 
IF У5<1 AND US<! THEN PRINT8362,"IT IS А ОКАН": СОТО 760 
IF US«1 THEN PRINTG3642,;,T$1" WON":GOTO 760 

IF VS¢1 THEN РБІМТ8З62,%5%)" WON":GOTO 760 

FOR А-0 TO 3000:NEXT:GOTO 105 

PRINT@455, “ANOTHER GAME (Y/N)?" 

КФ=ІМКЕҮФ: I$=INKEY$: IF I$-*Y'THEN RUN ELSE IF ІФ) "М" ТНЕМ770 


"SOUND 15,1 
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WORM 


The idea of this game is to move 
from one side of the screen to 
the other without hitting the 
dots, the walls, or your own tail. 
If you do manage to reach the 
other side, bonus points are 
awarded before proceeding to a 
new frame. 
I. Thompson 
Collaroy Plateau NSW 
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? ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ E ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ 


7% WORM * 
ж FOR UNEXPANDED ж 
ж ,2-200/300 ж 
?* РҮ ТАМ ТНОМР5ОМ ж 


35555555555 555555555534 
x 


GOSUPR 1000 


CLS:POKE 30744,0 
U$-"Q^:O$-z*A*:L$-"M':R$-"," 
7-1 

5С=@ 


Х-10:Ү-5:Ү1-1:Х1-0 
MODE(1):COLOR 3,1:REM — CHANGE TO COLOR 3,0 FOR B&W MONITOR 
FOR А=1 TO 127:SET(A,0) :SET(A, 63) :NEXT 
FOR А=@ TO 63:5ЕТ(0,А):5ЕТ(127,А):МЕХТ 
FOR А-111 TO 127:COLOR 4:SET(A, 63) :NEXT 
COLOR 3 
FOR A=1 TO 45:SET(623,A):SET(95,A):SET(79, A*18) 
0 SET(47,A+18) :SET(24,A) :SET(111,A*18) :NEXT A 
0 AS=INKEYS:IF А%-Н% THEN X1=1:Y1=0 
© IF А%-0% THEN X1-20:Y1-1 
О IF A$-L$ THEN X1--1:Y1-0 
д IF A$-U$ THEN X1=0:Y1=-1 
2 X=X+X1:Y=Y+Y1:IF POINT(X,Y)=2 THEN 300 
0 IF POINT(X,Y)=4 THEN 380 
О IF POINT(X,Y)-3 THEN 350 
8 SET(X,Y) 
0 SC=SC+1 
0 COLOR 2:SET(RND(127) , RND(63)) 
0 GOTO 110 
9 SOUND 25,6 
2 CLS:PRINT@946, "FRAME МО."%7:РНІМТ 
3 PRINT"YOU HAVE РЕЕМ DESTROYED" 
5 PRINT 
0 PRINT"SCORE:";SC 
2 PRINT:IF SC>=HSC THEN HSC-SC 
5 PRINT"HIGHEST SCORE:";HSC 
0 PRINT:INPUT"ANOTHER FRAME (Y/N)"3A$:IFA$-"Y*"THENZ-Z-*1:GOTOAQ0 
О IF AS="N" THEN CLS:PRINT 3 237,"BYE!*:END 
о GOTO 300 
© SOUND 25,6:С15:РНІМТӘЗ2,ҒНАМЕ NO. "Z; 
2 PRINT:PRINT 
5 PRINT*YOU HIT YOUR OWN TAIL * 
0 PRINT"YOU HAVE BEEN DESTROYED" : PRINT:GOTOZ10 


0 CLS:SOUNDZO;,7:PRINT:PRINT"S5QO0 POINTS BONUS" :SC=SC+500:FORA=1TO 500 


Q NEXT A:GOTO 45 

00 CLS:PRINT@75,"_W ORM” 

10 PRINT3225,"IAN THOMPSON, COLLAROY PLATEAU" 
20 FOR I-1 TO 1000:МЕХТ I 

50 CLS:PRINT"THE IDEA OF THIS GAME IS TO MOVE"; 
35 CLS:PRINT"FROM ONE SIDE OF THE SCREEN ТО" 
40 PRINT"THE OTHER,AND INTO THE RED LINE." 

50 PRINT"ONCE YOU HIT THE RED LINE YOU" 

60 PRINT"GET 500 POINTS BONUS AND YOU" 

70 PRINT"START A SECOND FRAME." 

80 PRINT:PRINT"THE DANGERS ARE THE WALLS, THE" 
90 РНІМТ"рОТ5, AND YOUR OWN ТАП." 

€0 PRINT3482,"PRESS «RETURN? TO CONTINUE"; 

05 INPUT A$ 

10 CLS:PRINT@72, "DIRECTION KEYS" 


20 PRINT@139,"Q = ОР" 
30 PRINTS8203,"A = DOWN" 
40 РКІМТӘ267, "М = LEFT" 


50 PRINT93313"; = RIGHT" 
60 PRINT@482,"PRESS «RETURN? TO START"; 


70 INPUT A$ 
80 RETURN 


`Ус 88 logs. 
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DOGFIGHT 


d DOG FIGHT * 
You are in a plane and must en- ж FOR ВК 92-200 * 
deavour to shoot down another E BY IAN A.THOMPSON * 


E E E HE E E E ЭЕ ЭЕ CIE ЭЕ ЭЕ ЭЕ ЗЕ XE XE ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ ¥ E ЭЕ ЭЕ 

CLS: SOUND 25,6:PRINT@154,"_D O G FILS HII. 
PRINT@225,"IAN THOMFSON,COLLAROY PLATEAU" 
PRINT8449,"INSTRUCTIONS (Y/ND"; 


plane. Using the arrow keys, you 
position the target plane in the 
dead center of the sights. You 
shoot with the Z key. 


AO NCO 0 AW NRK S 


1 Th а INPUT ANF 
. 1 потрѕо IF LEFT$(AN$,1)-2"Y" THEN 1500 ELSE 10 
Collaroy Plateau NSW 10 SC=0:ML=G 


к 20 MODE(1):COLOR 3 
i ЗО FOR K=0 TO 127 
: . 40 IF K>63 THEN 60 
SO IF К>24 AND К<40 THEN SET(SO,K):SET(78,K) ELSE SET(64,K) 
60 IF K>49 AND К<79 THEN SET(K,25):SET(K,39) ELSE SET (K,22) 
70 NEXT: X=RND (123)+1:Y=635:COLOR 4:GOTO 140 
110 RESET(A,4) : RESET (A+1,4) :RESET(A-1,4) 
120 RESET (A+2,4) : RESET (A-2,4) : КЕЅЕТ (А,Ү-1) 
150 Y=Y-1:IF Y=1 THEN 200 
140 SET(X,Y) :SET(X*1,Y) :SET(X-1, YO 
150 SET(X*2,Y) :SET(X-2,Y) : SET(X,Y-1) 
152 RESET (X,Y) : RESET (X*1,Y) : RESET(X-1, Y) 
154 RESET (X*2,Y) : RESET (X-2,Y) sRESET (X, Y-1) 
160 GOSUB 1000 
170 GOTO 110 
200 ML=ML+1:IF ML=10 THEN 210 ELSE 20 
210 CLS 
220 PRINT: FRINT"YOU SHOT DOWN"; SC, "OUT OF 10 PLANES" 
250 PRINT:PRINT:PRINT"ANOTHER GO"; 
240 INFUT ANS 
250 IF LEFT£(AN$,1)-2"Y" THEN RUN ELSE 260 
260 CLS:PRINT"THANKS FOR THE GAME, BYE!":END 
1000 А-Х 
1010 IF ІМКЕҮЗ-"," THEN 1050 
1020 IF ІМКЕҮЗ-"М" THEN 1070 
1030 IF INKEYS="Z" THEN 1100 
1040 RETURN 
1050 X=X+2:IF X>125 THEN X=125 
1060 RETURN 
1070 X=X-2:IF X<2 THEN X=2 
1080 RETURN 
мы 1100 SOUND 15,2 
Ad 1110 FOR K=34 TO 64 STEP 2 
УЗ 1120 SET(K,96-K) :SET(127-K,96-K) 
е4 1150 NEXT 
et 1140 FOR K=34 TO 64 STEP 2 
1150 RESET (K,96-K) : RESET (127-K,96-K) 
1160 NEXT 
1170 IF X467 AND X561 AND Ү<54 AND Ү>50 THEN 1200 
2% 1180 SOUND 1,2 
ELS 1190 RETURN 
1200 SOUND 29,2;21,2 
1205 FOR Т=1 TO 2 
1210 FOR K=1 TO 20 
1220 SET (КМ0 (10) +59,RND(10) +27) 
1250 NEXT 
1240 FOR K=1 TO 50 
1250 SET (RND (ZO) +49 , КМО (50) +17) 
1260 NEXT 
1265 МЕХТ 
1270 SC=SC+1:ML=ML+1:IF ML=10 THEN 210 
1280 GOTO 20 
1500 CLS:PRINT"THE GAME IS CALLED DOG-FIGHT, " 
1510 PRINT"AND AS THE NAME SUGGESTS,YOU AREIN A PLANE AND"; 
1520 FRINT" MUST ENDEAVOUR TOSHOOT DOWN ANOTHER PLANE." 
1530 FPRINT"SIGHTS APPEAR ON THE SCREEN, ANDYOU MUST MOVE YOUR"; 
: 1540 PRINT" PLANE (USING THE LEFT AND RIGHT ARROW KEYS) TO "; 
{S50 PRINT"GET THE TARGET FIANE DEAD TN THE CEMTRF NF THE “¢ 
560 PRINT" SIGHTS." 
1570 PRINT"YOU SHOOT WITH THE 'Z'KEY." 
1580 FRINT"YOU'LL BE GIVEN 10 PLANES TO " 
1590 PRINT"SHOOT DOWN, AND AT THE END TOLD" 
1600 FRINT"HOW MANY YOU MANAGED TO GET. YOU"; 
1610 PRINT"WILL THEM BE OFFERED А NEW GAME. " ; 
1620 FRINT" PRESS ¿S> TO START THE GAME." 
1650 IF IMNKEY#<>"S" THEN 1620 
1640 IF INKEYS="S" THEN 10 
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BEZERK 
Bezerk is a games program writ- 
ten for the У2200/300. The idea is 
that when in playing mode you 
move a dot around the screen 
running through the red dots. If 
you do not reach the red dots in 
time and you touch them they 
will turn yellow and you die! Do 
not touch the walls or anything 
yellow. At the end of the game 
you will be given a bonus point 
for every red dot you ran over. 
R. Banks & M. Saunders 
Mackay Qld 
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um M DS 


THEM S re 


КЕЕ B y: НЕХТ 


ITHEHPFE="HIT THE WALL" GoToszü 


„өт 
ha 


RIHT"THE AVERAGE SO FRR-"IHTCHT/G 


У ET. HAHET; SET: Pk 


й:Т=-1: сата B 
2 :ERIMTGSG,"IIP — "Facio 
-hT:PRIHTE&1zz."DOMM — "А 2 
HAR FEIHTRIGE, "LEFT - "HC 
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8":НЕХТ 
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3 РЕІНТ" COR T БЫН DER TH 
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EETHEEH 1 AHE S"; 
а ҮШІ MILL БЕ GIVEM fi 


5 Е ПЕ EACH GOT 
1712942371" 
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ARGGGGH! 
This exciting progam written for 
the VZ200/300 re uires a good 
deal of skill. Weave yourself in 
and out of the yellow dots, avoid- 
ing them and the walls, until a 
hole appears in the top middle of 
the screen. You are only allowed 
to go back on yourself a few 
times, so beware. 

R. Banks & M. Saunders 

Mackay QLD 


"EZUBMUTHEHNFH 
IFAE=" 3" THEHFLI 
IFAT="E" THEHPL 
IFFipz"L" THEHE 


ТЕЕНІ 
ІҒЕМХ 


Lee: FAF 


1155 Е 
БЫ 8 
1186 IF FITHEM Sf 
11150 6n 111 
Ус ВВ 19 


TAATOA 
АТНЕН сил 


p. 7. 


„ВЕУ HET 
z: IF FUB= 


""THEHSO 


аю] 


ENCODE/ еі 
DECODE En PRINTI 


Encode/Decode is an encoding 118 ЕС 
and decoding program written 150 FRIHTE 
for the VZ200/300. When run it 

will ask you to input a word or 

secret message. After typing in 

your secret message, on the line 

below will appear the message in 

code form. It will then ask you to 


К 5 3 


input a secret message in jum- 
bled form which it will then de- : 
code. 


R. Banks & M. Saunders 
Mackay Qld 
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CATCH 


A lot of skill and patience is re- 
quired to use this program. You 
must trap the other moving dot 
into one spot on the screen. To 
do so use the following com- 


eS HEMT :FÜRRXZZBTCEZ 


mands — 

W — up 

VR ME 1:GOTO1185 
Lene БЕШ 
E, R — to turn yourself visible лы 
and invisible. 


T'GUTD1661 


Please note that the designers of 
SSTHEH4üTÉ6 


this program takes no responsi- 
bility if you hit your computer 
through frustration and anger! 
R. Banks & M. Saunders 
Mackay Qld 
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2 CLS: COLOR? с 
ӚРКІМТ REIS) tu- FOE" 


SINFUT"INSTRÜCTIONS (Y/N) ":A$: IFAS="Y"THENGOSUB2000 
7F=66:H=463: Y=1:L=20: X=62:M=3 
1OMODE (1) :U=0 
156050864000 š 
2OFORAZ1TOZO:SET(RND(127).RND(4)) : МЕХТ 
2SCCORS 
27FORA=1 TOS: SET (H+A.L) : NEXT 
28COLOR2 
ЗО FORA=1T010: SET (X+A.Y) : NEXT 
SSCOLOR?: Y=Y+1 
40 ҒОКА=1Т014: SET (X-2+A. Y) NEXT 
45COLOR4: Y=Y+¢ 
50 FORA=1T024: SEET (X+A-7. Y) : NEXT 
өс Y=Y+1 
ZOFORA=1TO14:SET(X-2+ñA,Y):NEXT 
SF=H=6G: U=U+1: IFU24THEN7ELSEIFM=2THENM=ZELSEIFM=ZTHENM=4ELSEHM=2 
2SCOL OFM 
BOFORA=STOS: IFA>2OTHENL=32 
BSIFADZ2THENL-44 
90I =RND (20) : DERND (2) 
10050К2-1Т01 
1101F4244ANDFOINT (Е. А) THENGOTO1O 
120IFD=1THENF=F-1ELSEF=FP+1 
122IFFg1THENF=1:D=2:A=A+1:G6GO0T0120 
124IFF>12áTHENF=126: D=D+1:A=A+1:GOTO120 
127IFA=LANDF =>HANDF(=H+6THENSOUHD2S.S:F=68:L=20:H=6Z:G0O0T075 
130SET (F.A) 
13560SUB1000: COL ORM 
14ОМЕХТ 
145МЕХТ 
150500М02.4:2.4:5,4:5Т-57%%: IFST-CTHENSOOOELSEL -20: H=62: 5607075 
1000A$-INKEYS$: IFA$-2""THENRETURN 
1OOSCOLORRND (=) +1 
1ОО&1ЕН>121АМОА%=","ТНЕЕМ1О40 
1008IFH41ANDA$-2"M"THEN1040 
10101FA$z2"M"THENSET (Н- 1.) RESET (H*E,.L) :H-H-1 
1020IFA$z-","THENSET (H*6. L): КЕЅЕТ ‘Н, L) : Н=Н+1 
1025COLOR4 
1040RETURN 
2000CLS:FRINTTAB (13) "U-FOE" 
ZO1O0FRINT"YOL MUST DEFEND THE CITY АТ THE BOTTOM OF THE "; 
2OZ2OFRINT"SCREEN FROM ALIEN MISSILES WITH YOUR THREE ": 
2OSOFRINT"SUPFERSAUCERS(TM). THE CITY CAN WITHSTAND THREE "3 
2040FRINT"DIFECT HITS BEFORE IT IS DESTROYED." 
ZOSOFRINT"CONTROLS АКЕ: " 
2O60FRINT"M-LEFT . RIGHT" 
207O0FRINT"IF YGU MISS THE MISSILE WITH YOUF: FIRST SAUCER "; 
2OBOFRINT" ANOTHER WILL AFFEAR DIRECTLY UNDER ІТ AS SOON ": 
2090FRINT"AS ONE OF CONTROLS IS FRESSED. THE SAME "; 
2100FRINT"WILL HAFFEN WITH THE PECOND BUT NOT THE THIF:D, ' 
211ОРБІМТ"РКЕ55 ANY KEY TO FLAY.' 
2120ІРІМКЕҮФ= " "ТНЕМ2120 
21ЗОКЕТОКМ 
400ОҒОКА=40Тт080 
40101 =RND (AES ( (А-29) -20) ) +44 
4020FORJ=62TOISTEF-1 
40205ЕТ (A.J) 
404ONEXT: NEXT 
4045CLOR1 
4OSOFORA=1TOZ0: SET (RND (18) +48. КМО (12) +49) : NEXT 
4060COLOR2 
4070RETURN 
SOOO0SOUNDS.S9:4.5:1.5 
SO10CLS: FRINTTAB(12)"SCHMUCK'" 
SOZOFRINT"YOU LET THE CITY BE DESTROYED!" 


9-ҒОЕ 
Full instructions аге included іп 
the text, but the idea 15 to de- 
fend a city at the bottom of the 
screen with three flying sau- 
cers. 


L. Alderton 
Dunnedoo 
NSW 
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10 REM#DISINTEGRATOR# М N=N-1: М= (52-М) Ж10:0=0+М 
20 МОРЕ (0) :CLS:COLOR,O 560 FORL=28864T029151 
30 POKE30862, 80: POKE30863, 52 570 POKEL, 52: МЕХТ 
40 GOSUB900 580 ІЕМ-ОТНЕМ700 
50 60508800 690 GOTO140 
100 'START FRAME 'END ROUND 
110 CLS:POKEZO744,1:D-216:N23:U-0 710 IFUS=T$THEN730 
120 FORL=29152T029183 720 IFU=TTHENT$="A DRAW" 
130 POKEL, 255:NEXT 3 IFU>TTHENT= U:T$= Us 
140 M=D+16:P=0 PRINT39, 
150 PRINT30,"(. CHAMPE:"T$: PRINT317, "PLAYER: 745 РКІМТӘ9,Т%: PRINT38B, N 
160 PRINTO32, "HI SCORE: "т: PRINTO49, "LSLDREE " 750 РКІМТӘ41,Т:РКІМТӘ56,0 
170 PRINT364, "(BOMBS "M: PRINT281 , "[ CRAF T]: 760 PRINT395, "<T>TRY AGAIN <N>NEW GAME “(EYEND" 
180 FORL-29121T029151STEP2 PRINT3170, 
190 K-(RND(5) -1) *16+172 AS=INKEYS 
200 H=RND (7) Ж52: Р=Р+Н 775 А%-ІМКЕҮ%:ІҒАФ-""ТНЕМ770 
210 FORX=HTOOSTEP-32 780 IFAS="T"THEN1OO 
220 POKEL-X,K 785 ІБА%-"М"ТНЕМ5О 
230 МЕХТ:МЕХТ 790 IFAS="E"THENCLS: END 
240 PRINTO139, "<S>=START" 795 GOTO770 
250 AS-INKEY$:AS-INKEYS$: ІҒАФ< > "5" THEN250 800 ' INITIAL 
260 РБІМТӘ129," ": SOUNDZ1,1 810 CLS:POKEZO744,0 
270 (-287067:С-252,5:7-.5:В-2 830 PRINT"PLAYER, PLEASE INPUT YOUR МАМЕ" 
° МОМЕ CRAFT 840 
310 А6-ІМКЕҮ% 850 PRINT:INPUTU$ 
POKEL, 32: L=L+1: POKEL, C+Z 860 S=LEN (US$) 
IFRND (10) >STHENX=USR ( X) 870 IFS«10RS»7THEN840 
Z-2-2:FORI-OTODX2: NEXT 880 RETURN 
IFB<2THEN370 900 * INSTRUCT 
IFA$-" "ANDM>OTHEN400 Y 905 CLS:PRINTTAB(8); "#OTSINTEGRA 
B=B+1 910 PRINTTAR(7);" (BY ALAN STIBBARD)" 
ІҒРЕЕК (1+1) <>32THEN600 915 PRINT"YOU АКЕ IN А CRAFT WHICH HOVERS" 
5070510 920 PRINT"OVER TALL STRUCTURES. YOUR TASK" 
*DROP ВОМВ 925 PRINT"IS TO DESTROY THESE BY DROPPING" 
SOUND20, 1: M=M-1 :F=L+32: B=0 930 PRINT"ROMRS DOWN ON TO THEM BEFORE" 
PRINTO73,M 935 PRINT"YOUR ALTITUDE GETS TOO LOW AND" 
IFPEEK (F+32) =255THENSOUND10, 1:POKEF,32:GOTO460 940 PRINT"YOU CRASH INTO ONE OF THEM." 
POKEF , 32: F=F+32! POKEF, 245 945 PRINT"THE GAME BECOME'S MORE DIFFICULT"; 
X=USR (X) : GOTO430 950 PRINT"AS YOU SUCCEED EACH FRAME. THE" 
FORY=29089T029119STEP2 955 PRINT"NUMBER OF BOMBS WILL DECREASE $" 
IFPEEK (Y) < >32THENS10 960 PRINT"AND THE SPEED OF THE CRAFT WILL" 
NEXT 965 PRINT" INCREASE.HIGHEST SCORER WINS!!. 
*COLLECT POINTS 970 PRINT"XBOMBS NOT DROPPED ARE A BONUS." 
SOUND31, 1331, 1 975 PRINT"XTHE «SPACE» KEY DROPS THE BOMBS"; 
IFD>OTHEND=D-2 980 PRINT" [HIT RETURN KEY TO CONTINUED; :INPUTSS 
M=Mx (2000- (DX100)) 985 RETURN 
IFD=OTHENM=5000 
U=U+M+P: POKEL, 32: GOTO140 his 5 ч 
*WIPEOUT Disintegrator and comments are explained in 
SOUND15, 1 This game is run on the VZ- the program. 


: 5 S ; 
COLOR SE OREO 200 or 300. All the instructions 


A. Stibbard 
FORI=1T050: NEXT: SOUNDS, 1 Stanmore NSW 
POKEZO744,1: COLOR, O 
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Star fighter : 
A game where you hit a UFO 
10 times under a time and am- 
munition limit ... «— (M) (,) 
-> (Z) FIRE (Q) END (R) 
RERUN. GOOD LUCK! 
Murray Roberts 
Ettham 
Vic. 
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188 
110 
120 
138 
140 
150 
158 
120 
189 
130 
200 
219 
220 
239 
240 


258 
269 
128 
282 
239 
399 
312 
220 
338 
348 
359 
260 
320 
280 
338 
400 
410 
420 
420 
448 
450 
450 
428 
420 
430 
see 
sia 
528 
539 
543 
559 
589 
520 
580 
590 
вәз 
610 
620 
638 
540 
650 
660 
620 
680 
690 
788 
2i0 
229 
232 
249 
258 
26е 
2% 
289 
238 
$00 
Bid 
920 
938 
840 
852 
860 
879 
880 
830 
заа 
310 
928 
938 
348 
350 
968 
978 
380 
990 


REMARKABLE ELECTRONICS TCCAY PROGRAM BY M.ROBERTS 


I (932 433 2126 ...... 
"отззее OR 027200 


CLS:PRINT" PROGRAM FROM FEEU FORWARO FROM "i 
PRINT°'E LE CT RO DOS S T4070 аш. 
PRINT@224, "NAME PLEAS 1 TSPUTNANES 
50508619 

Тіпе-і:іздіНне; :8S=40 CLS 

CLs 

E«0:0923169 :Е- INT(RNOC23) ) :Е=Е +28832 
РОКЕО, 30 :РОКЕЕ- 1, 35 :POKEE , 35 :POKEE +1, 35 
PeINTCRNOC32)J 

PI*INTCRNDC382) 

P2#INTCRNOC 303) 


РЗ3-ІМІСЕМОС3233 


IFP) “РООЕР1 =PORP 1 *POORF2 *PORP3*PORP3*P2,210 
РаРт230881Р1-Р| «23088:Р2еР2-23088:Р2-Р3»230288 
РОКЕР1,125:РОКЕР?,125:РОкЕР,:25:РОКЕРЗ, 125 
В3«ІМкКЕҮЗ :86<ІмкЕҮЗ 

PRINTQ1O, "BULLETS ";BS 
IFB$«*,"ANOD423183,GOTO400 

IF BS="M"ANOOS 23152, 6070430 

IFB&«"2" ANDPEEK (0-643 < 125, SOUND1Ə, 1 :60Т0460 
TIME=TIME +1 


IFTIME> 100,310 
PRINTà22, "TIME“ TINE 
ІЕВзе "0", ENO 
1Е83е"К”,6070120 
60518569 

65070280 

REM <- 


ТІПЕеТІЛЕ 1 1РОКЕО, 36 :60508569 :0=0*+: 1POKED, 30 :6070288 
6070288 

REM =» 

TIME=TIME +1 :POKED, 96 :GOSLIB560 :0=0- 1 :POKED, 30:6070280 
6070280 

ТІПЕеТІПЕж1:Е-0:1Ғ85<1,920 

BS=BS-1:FORñ=1TO3 

R=R-32 :POKER, 33:60508560 :M=0 :POKER, 96 :NEXT 
IFPEEK(R-32)=3S,H1#H1+1:PRINTQƏ,H1;" HIT"1G0TOS10 
бот0289 

SOUN231,; 1;20,1;10,1 


IFH1>=10, 828 
REM GOT BULLETS 
REA 

65070289 


POKEE-1, 96 :POKEE t1, 36 :POKEE , 96 : [FH=1ANOE «28863, Е-Е +1 
IFH=2ANDE> 28832,£=E-1 
IFE*28862,H=#2 

IFE-28833,H«1 

POKEE +1, 35 :РОКЕЕ, 35 1RE TURN 
FORRe1TO40 iIPRINT” STAR FIGHTE 
500031,3 

CLS1FORA-1T0400 NEXT 

FRINT" GREETINGS STAR FIGHTER" :FORñ=1TO8QQ NEXT 
PRINT" 
FORA«1TO80Q 1NEXT 


"PINEXT 


PRINT" TRY TO DESTROY ME, IF YOU CAN"; :ҒОВА= 1 ТС:080 NEXT 
PRINT" PRESS" :FORA#1 T0330 :NEXT 

PRINT" M FOR <-" :FORA#! 1701009 :NEXT 

PRINT" › FOR -)" sFORA21 ТО1880 :МЕХТ 

PRINT” SPACE FOR FIRE" *FORA#1T01QQ0@ :NEXT 

PRINT" Q TO QUIT" :ҒОКА= 17019080 :МЕХТ 

PRINT" R TO RESTART” :FORR-1T01080 :NEXT 


Сее" АМҮ KEY" 
I RINT8448, LEFT$(C$, 312 5 :PRINTG458,LEFTSCCS, 213; 
PRINT8468,LEFT4(C93,312 ; :PRINTCHR$C28) ; iPRINT3428," 
FORR21TO30:83-2[NKEYS : [РАЗ 42" ",NEXTELSERE TURN 
Cs-nIO$CCS, 2) eLEFT3CC$, 1) 

6070252 

RETURN 

B3«[NKEY3 :ӘззімкЕҮЗ ІҒАЗ»"",812Е-5ЕКЕТИКМ 

CLS 

PRINT :PR INT :PRINT PRINT 
PRINT "YW Е L L 
PRINT PRINT SPRINT 
PRINTIS T A R-F Ë 
PRINT :PRINT 
PRINT" 


D 0 N ES 


G.M. T E Жез 


"МАПЕ Ф 


PRINT:PRINT" ANT KEY FOR ANOTHE GAME" 
AS=INKEYS :AS=INKEYS :[F^32" ^, 388 

RUN 

cis 

PRINT SPRINT :PRINT:PRiNT 

PRINT"B A n “ u с к“; 
PRINT :PRINT :PRINT 

PRINT"S T BR. R И t T E RT 
PRINT :PRINT 

PRINT" "INANE S 


PRINT SPRINT" ANY KEY FOR ANOTHER САЛЕ” 


1000 AS<[NKEYS :AS=[NKEYS:[FASS"", 300 
10:0 RUN 


1388... 


I AM YOUR ENEMY ";:FORRSITO689Q:NEXT :РЕІМТ"200" 


"s 
; 


Drawing board tions ore contoined in the 
This progrorn allows the user program. 

to create pictures in Mode < D. Маипдег 
1> with 8 different cursor Quirindi 
movements. All the instruc- NSW 


* THE БЕРМІМС BORED ' IS WRITTEN БҮ 

2 САТО MAUHOER, QUIRINDI.NSM 2343 
' AND IS FOR THE: “° 

^ у Y 22222 #8 5553 

25 у 2 7 


уу 22 " 2253 


М 22222 $252 

“үг2-200 -30а,У2-300.У2-309 
© Z-200, YZ-300, v2-200 
CLS: 12051)811@@ 
PRIHTG2€,"THIS PROGRAM IS TO ORAH QBJECTS."; 
12 PRINT"PICTURES OR ANYTHING YOU LIKE." 

13 PRIHT"iIHEH YOU! CRAM ҮП) HAYE A CHOICE" 

14 PRINT"OF ТЫП CURSORS:1.THIM OR 2.THICK"; 

1€ РРІНТ"СНАМСЕ THEM BY FFESSIHG '1' OR " 

? PRIHT"'2'.Y0U ALSO HAVE Э DIFFERENT" 

18 PRINT"COLORS BY PRESSING 3,4,5,6.7.8,9"; 

19 РФІМТ",0 АНС ^ = ’. THERE ARE 2" 
29 PEIHMT"DIFFEFENT CURSOR MOVEMENTS WHICH"; 
21 PRINT"WILL HELP YOU TO DESIGN YOUR" 
22 PRINT"PICTURE." 
43 РРІМТӘӨ452. "JASSE TT EIE CODO 000)" 

3 IS-IHNKE''S:USZINKETS 
45 IFUSS»" "THENGOTO44 
46 PRINT:PRINT:PRINT:FGCRIU-1TOZ20 
47 PRINTe&42 COMMANDS RKE:":FRINT8425, "(ипли (NI 32B" : NEXTU 


e — O N ЛП h Oro S 


-G 


42 ЕОЕН-170250:МЕХТ 

43 LLS: PRINT" GATAN U I 0 aa: 4" 

50 PRINT” JK бе" 

51 PRINT" NM, д^ 

с> " " 

53 PRINT" , MUR, PON 
54 PRINT" 2,THICK LINE. 4. YELLOW" 


PRINT" RANAN 5.BLuE" 
| PRINT" = CLEARS SCREEN 6. RED" 
PRINT" B.PUTS CURSOR AT . 51 

2 PRINT" STRRT POSITION . 
PRINT" C.TO COPY PICTURE 2. МАСЕМТЯ" 

PRINT" ONTO A PRINTER 9. OFANGE" 

PRIHT" Q.TO QUIT (ENDS NORMALS 2.05"; 

64 PRINT@4S 2. айла шіл EE HU 

9 YS-INKEYS:PSSINKEYS 

IFFSc»" "THENGOTIES 

CLS:PRINT"PZXJIF YOU WANT А COPY OF THE " 

РЕІНТ"ЗСРЕЕМ ONTO A FRINTER PRESS 'C^,"; PRINT 
ERINIAERXRIND IF ҮП!) FORGET A COMMAND" 

PRINT"PRESS THE <SPACE> BAR AND YOU " 

РВІНТ"ИПЦИ, "GET THESE INSTRUCTIONS. ۴ 

РРЇНТ?420. "(2 SSS TTA ыш! із Таң; 
FS=INKETS:GS=INKETS 

IFGS< >" "THENGOTOSS 

МОСЕ 1 >: COLOR4, 1:FORR-OTO127 :SETCR, 9D: SETA. 15: ЗЕТА, 62? 
ZETLA.: EF): NEXT :РСЕА=0Т0Е3: SETA. Ad: SETE 1A): ЗЕТ 126. 85 
SET. 127. A):NEXT 


Oy OY Cf ¿n cn ¿nan ct 
— Sub ON nin 


m 
un 


IS-INKEYS: IS-INKETS:RS-INKEYS:FIS-INKEYS 
IFISC»""THENSZELSE?5 

IFRS="J" THENA=X-1 : GOSIIE 19990 
IFAS="K"THENA=X+1 :50516 1998 


191 IFR$-z"M"THENT-Y*1:GÜUZUE1909 

102 IFFs="I"THEHNY='-1:6G0SUES 1999 "v 2 - 
183 IFRSC»"R"THEHGOTOLOSELSEHz1:Ms4-1:RKESETCX, Y 2 RESE C1 02 
104 60510810902 "BP 

105 IFRsC»" S" THENGOTO197ELSEH-1:XeX*1: RESET т 2) RESETCX-1: YO 
196 REM SUP RE 
197 IFRSCP"Z'THENGOTOLG3ELSEHz1:Y2 Y «1: RESETCR Y) RESETCX, 7715 
199 60517610002 б 2. 

162 IFRSZ»"W'THEHGOTOLI1ELSEHz1: Y9Y-1:RESETCX, Y 2 RESETCR 012 
119 US eye 


— ju) ur чура UD U 20) 00 00 X c6 0 Y V 0 
SOHO Fe CO ГО — VINK OO 00 aA 


э 


1: 0318 1999 


112 -1:6021061990 
113 *1:G0Si.lB1000 
114 "T-1:GO0SUE10080 
115 С"ТНЕМСОРУ 

115 "ТНЕНМОСЕС A): GATOS 

117 E" THENGOTO34 

112 TFAS="1" THENA=1 :б0т020# 

119 IFH$z"2"THEHH-2:6G010209 


IFAS="3"THENCOLORL «1 

IFAS="4"THENCOLOR2, 1 

IFAS="S"THENCOLOR?, 1 

IFA ci THENCOLOR4, 1 

IFAS="7"THENCOLORS: 1 

IFRSz"Z£"THEHCOLORÉ. 1 

26 IFRHs-"A"THENCOLOR2, 1 

IFRfisz"-" THENCOLOR 2,0 

( [FRi$z":"THEHGOTOSO 

IFR$z"ü"THENNEH 

REM SETTING D. LINE CURSOR 
IFH=2THENSET X41, Y ): SETCA, +1): ЗЕТ MHL Y*12 _ 
REM SETTING 5. % D. LINE CURSORS 
SETO Y» 

507095 

REM RESETTING D.LIHES 

RESETCE. Y» 

GOTOSS 
A REM BOUNCER LINES 

ІЕХ-2ТНЕНХтА?1 

IFXz124THENA7X-1 

IFYz2THEH'Tz'/*1 

IFYZ61THENY-Y-1 

RETURN 

REM INTRO 

FRINTGG, "DXXXZXINMfIGNOTU MT AMET KEK" ; 
OMNS="& DAVID MANDER" + FORO=1TOLENC OMS > 
FRIHT&4O,LEFTSCOMS, D): НЕХТ 

RETURN 


m 


1 
1 
1 
1 
1 
1 
1 
1 


+ u) fo = а 
TDO оса 
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Camel 


Camel is a popular game thot is 

played by many people. There 

are many versions of the game. 
This is one. Instructions to play are | 
included in the program. | 

D. Maunder, 

Quirindi, 

NSW. 


ETI May $09 
p 387-88. 
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VZ 200/300 


REM THERE ARE MAN’ DIFFERENT VERSIONS OF CAMEL FOR DIFFEFENT 
REM COMPUTERS. І НАМЕ CONVERTED CAMEL FOR THE У2-202 % У2-200 
REM ORIGINAL ICEA FROM HEATH USERS GROUP. 

REM ЖЖЖЖЖАЖЖЖЖЕЕЖХЖЖЖЖЖЖЖЕЖЖЖЖ 

REM CAMEL: OCCUPIES ABOUT EK 

REM ‘CAMEL’ CONVERTED AND REWRITTEN Еу D.MAUNDER  CCJOPYRIGHT 
REM 06/02/59 FOR THE 


7 REM V V V Ww (222222 0 4 
8REM 22V d 2 £22 
9 REM ! ! V V z ПЖ. 
g yo ¥ 2 259 

11 REM 20 Уу z йй 

au y 222222 9 9 
13 REM 'Z20082"22300 COMPUTERS 
14 REM SCRE EEE 
15 GOSUB2Z14:PRINT" Е WELCOME TO CAMEL": REM INVERSE 
16 PRINT 
17 PRINT 
18 FRINT" 8 WOULD ҮС) LIKE INSTRUCTIONS?" 
FRINT" I YAN" 
TS=INKETS 
ІЕТФ-"М"ТНЕНІ0Т036 
"THENGOTO2S 
IFTSC2"N"ORTSC»"'Y"THENGOTO2G 
GOTI23 
CLS: PRINT" C A M E L":REM INVERSE" 
PRINT 
PRINT"THE OBJECT GF THE GAME IS TO" 
PRINT"TRAWEL 200 KILOMETRES ACROSS THE"; 
PRINT"GREAT GOBI DESERT." ° 
PRINT"A TRIGE GF KNOCK KNEED DESERT PYGMIES WILL BE "; 
PRINT"CHASING ҮП." 
32 PRINT"YOU HAYE TWO LITRES OF WATER WHICH WILL LAST YOU "; 
33 PRINT"ZIX DRINKS" 
34 PRINT: PRINT 
35 INPUT" PRESS <RETURN> TO CONTIHUE";'/Z$:REM INVERSE 
6 РОКЕЗ0777,35:ҒОКЕ-17030 
5:24, "ЖЖСООС LUCK AND GOOD CRHMELINGEX" 


qi cn £ O oo < 


CARN P PO Pe NN N N ГО Гу) = 
e S y 0) O СП EP لن‎ f e Sh un 


e 


24,; 
ЮН К AND СӨС) САМЕТ THO 


77.67:005118213:С13 

ZUE22398:PRINT 

43 PRIHT"'OU ARE IN THE МІСС_Е OF THE DESERT AT AN OASIS" 
44 GOSLIE213 

45 IFC>608THEH141 

46 2-2-1 

47 IFZZI1THEHPRINT"-----IMüdiBfiU----- СЕТ A DRINK" 

43 IFZ-aTHEH134 

43 F=P+1 

58 2-ЕМО< 19 )2+2,5 

51 IFQ>@THEN111 

52 ІЕР<4ТНЕМЕЙ 

53 D=D+.J 

54 IFO<CTHENS? 

SS FRIMT"THE PYGMIES HAVE CAPTURED YOU..." 

56 PRINT"CAMEL % PEOPLE SOUP 15 THEIR FAVOURITE DISH !!!" 
SF 5056219 

5070122 

PRINT"THE PIGMIES ARE"C-O"KILOMETRES БЕНІМС YÜOU.." 
FRIHT"'OU HAYE TRAYELLED"C" 

PRINT"KILOMETRES 50 FAR..." 

PRINT: INFUT"WHAT IS YOUR СОММАНС?" AS 


ند یاک Je‏ 


TA yin cn ¢ 


à Fj 


63 

64 D"THENFRINT"ORINK FROM CANTEEN. " :С0Т0190 
65 ІЕНФ-"М"ТНЕМРЕІМТ"МООЕЕНТЕ SPEED AHEAD.” : GOTO?S 
66 IFAS="F"THENPRINT"FULL ЗРЕЕО RHERD.":GOTOZE 

6? IFAS="N"THENFRINT"NIGHT STOF.":GOTO34 

ЄЗ IFRi$z"S"THENFREIHT"STRTUS CHECK. ": GOTO? 

63 IFRS$z"H"THENFRINT"HOFE FOR HELP":GOTO?3 

78 IFRH$z'"K"THENFRINT"COMMRNOS" : GOSUBZ294 : GOTOe2 

71 PRINT"INVRLID COMMAND. " 

тг 5050629@:50Тт062 

23 Т=ЕМС< 14 +1 

24 ІЕТ<2ТНЕМ142 

75 PRINT"HELP HAS FOUND үс! IM A STATE OF UNCONCIOUSNESS" 
76 2=2 

?7 2-4 

78 607045 

73 F=F+1 

£8 IFFZZTHEH12Z 


5028195 
І-ЕҢОС 12 +1 

c=c+l 

PRINT"YOUR CAMEL LIKES THIS PACE." 

607045 

F=F+2 

ІЕЕ>?ТНЕМ138 | 
6038185 

І-2ЖЕМО 10 941 | 
С=С+1 
-FRÍNI"TOUR CAMEL IS BURNING ACROSS THEDESERT SANDS. ." 
PRINT : 
507045 | 
PRINTYOUR CAMEL THANKS YOU!!!" 
Е=й | 
607045 | 
PRINT"YOUR CAMEL HRE"7-F"GO0D DAYS LEFT FOR TRAVELLING." | 
ЭЗ PRINT"TOU HRVE"S"DRIMKS LEFT IN YOUR CANTEEN" | 
93 PRINT"TOU CAN GO"Z"COMMRNDS WITHOUT “ DRINKING.." 

$-9-1 

ІЕЗ<2ТНЕМ149 | 
2 PRINT"YOU HAD GETTER WATCH OUT FOR AN OASIS." 

j 2-4 
GOTOEZ | 
ASRNOC 20) | 
5 IFR>3THEH131 
PRINT"MILD BERGERS НЕЕ HIDDEN IN THE SAND HAVE 


CAPTURED ҮП" 


ж 
- 


қо ma £ CO fO 


WWD VG 4D чучо 00 да о) Q) e о 0 Q 


T4 C КҮ 


198 PRINT"LUCKILY THE LOCAL SHEIK HAS AGREED TO THEIR " 

109 FRINT"DEMRNDCS ....460/T.....WATCH GUT. FOR THE FYGMIES!!!.. 

116 PRINT" YOU HAVE A NEW CHOICE OF EJB- COMMANDS: " 

111 FRINT"KEY DESCRIPTION" 

112 РЕІНТ" E : RTTEMFT RH ESCRFE." 

азғыны W : WAIT FOR PAYMENT.” 20 

114 INPUT" YOUR zilE-COMMRHO ? E 209 
115 IFES="E"THENPRINT "ESCAPE. " :GOTO118 216 
116 ІҒЕФ-"М"ТНЕМРЕІМТ"ЫНІТ FOR РАТМЕМТ. " :5070126 

117 6070114 

118 I-ENDC 14 2+1 

119 IFI«STHEH123 

120 PRINT"CONGRATULATIONS, YOU SUCCESS- FULLY ESCRFED!!" 


Gap uy ap AD ADA vD UY D 


mx COD ÛÛ XM CNB о N 


) far pa — — — — — — 


2 6017045 


& FORT=1 TCE 


9-0 


FRINT"YOU МЕКЕ MORTALLY WOUNDED EY A PIG STREEER WHILE” 
PRINT"ESCAPING.." 
5070166 
T=RND¢ 102 
IFI?2STHEN148 2 
PRINT" YOUR RANSOM HAS EEEH FAID AHD ‘YOU ARE FREE TO GO,." 223 
РЕІМТ"ТНЕ LOCAL SULTAN IS COLLECTING. . JUST WAIT...." 
GOTOdS 
A=RNDC 10 2+1 
IFA>4THEN1 42 
PRINT" YOU HAYE ARRIVED RT AN OASIS.... YOUR CAMEL IS "; 
PRINT"FILLING YOUR CANTEEN AND EATING FIGS" 
2-4 
5-6 
КЕТПЕН 
PRINT’ YOU DIRTY RAPSCALLION! OU RAN TOUR POOR CAMEL TO"; 
FRINT" DEATH! ! " 
GOTO166 
РЕ1ЇНТ"ЖХЖХЖЖЖЖЖЖХЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖУЖЖУЖЖ"; 
FRIHT"xYOL МІН,Н PARTY IS BEING СІУЕМЖ"; 
FRIHT"XIN ‘YOUR HONOR. ....THE FYGMIES x"; 
PRINT" ARE PLANNING Tü RTTEHD...... Жж"; 
t i қ 55554 x КУКЕ ERE 
&,2:NEXTT 


SOUND, 2 


GüT0122 

I=RND¢ 10) 

IFI>STHEN1E@ 

PRINT" CL HAYE EEEN CAUGHT IN A SAND- STORM....GO0D LUCK!!!" 
MERNEK 1929241 

H=FNDZ 132+1 

IFH<STHEH1S6 

Г-бжМ 

5070157 

С-С-М 

РЕІНТ"ҮСЫІЕ МЕМ FOSITION IS"C"EILOMETRES SO FAR!!" 

РЕІМТ"ТНЕ FYGMIES ARE"C-D"KILOMETRES BEHIND ҮІ)" 

RETURN 

I=F:DC 14> 

IF 125 THENRE TURN 

С=р+1 

FRINT'YOUR CAMEL HIRT HIS HUMP." 

FRIHT"LLICKILY THE PYGMIES WERE FOOT- WEARY!!!" 

RETURN 
WIERD S > 
PRINT "ЖЖЖЖ 
FRINT": 


o roo boo ooo oe E c АЖЖ; 
IM THE DESERT ЖЖЖ"; 


2 PRINT Ек Еле АНХ") 


5П5МЕ21й 

ІРШ-1ТНЕМООТО176 

IFU-ZTHEHGOTO1739 

IFLUZZTHEHGÜTO172 

IFUSSTHENGOTOLE1 

IFUZ4THEHGÜTO1Z4 

IFLIZSTHENGOTO1Z? 

FRIHT"THE NATIONAL CAMELS NION ISN’ T" 

FRIMT"COMIHG TO YOUR FLHERRL" 

5070122 

FRINT'YOUR EDDY WAS EATEN EY VULTURES & IMPORTED CRHHNIERLS" 
50170182 

PRINT" THE SEE PE SHEIK HOW LEES YOUR SKULL AS Я CHRHGE" 


3 GOT ea 


PRINT"FEOFLE WITH LITTLE INTELLIGENCE SHOULD STAY QUT ПЕ" 
PRINT" THE DESERT." 

BOTOL ES 

FRINT"TURKEYS ZHOüULD FLY, NOT КІСЕ CAMELS!!!" 


5 PRINT: PRINT 


PRINT"WANT A НЕМ CAMEL AHD A НЕМ САМЕ" :AS=INKEYS 


й AS=INKETS 


IFRS-"N"THENGOTO136 
IFRS- "Y "THEHGOTOS 

GaTO196 | 
PRINT"YOU EAN CLIT OF HRTER....SORRY сном!" 


FORA= 1702 eaa 

FEINT" COMMANDS" : ‘REM INVERSE 
ЕРІМТ"КЕТ CESCRIPTIONS" 4 

РЕ1ЧТ" D + DRINK FROM ‘YOUR CANTEEN" 


ETI MAY '89 
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| PRINT" 


; PRINT" 5 


Ё PRINT" Ж 
Э RETUEN 


> PRINTS 
а FRINTGE 


F: RHERC FULL ZFEED" 
FRINT" M = 
PRINT" Н : ТОР FOR MIGHT" 
Z, t STATUS CHECK" 
H HOPE FOR HELF" 
b 


PRINT" H' + 
i LIST OF COMMANDE" 


ЕЛЕТ- vis SOWING.» 2: SONIA, 2:20 


67: OLS: COLORS 


FORE=2 32704482ТЕР22 


PRINTBE«21, "t"; 
HEXTE 


RETURN 


2 of 2 


AHEAD MODERATE SPEED" 


INCO. & 


=0:F=6:9=0° RETURN 


':NEXTT 


Aug. 
OE. 
Qo. 
ОСЕ. 
рес. 


Мау 


gül. 
Feb. 


BUSINESS 
84 АРС 
84 АРС 
85 АРС 
84 АРС 
84 АРС 
85 АРС 
85 APC 
бб ETI 


Agen 
214 

82 23 
126-210 
214 
бұй = 3 
164-6 
T2 


Database У2-200. (Barker) 

WP for У2-200. (McQuillan) 

Comment on Barker's and Quinn's DB. 
Minicalc Spreadsheet. (Stamboulidas) 
Correction ES Minicale. 

Micro Type(WP). (Browell) 

Database. (Quinn) 

VZ Wordprocessor. (Tunny) 


(Lukes) 
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This is an information storage and 
retrieval program for the VZ-200 with 
16k expansion used in conjunction with 
a suitable cassette recorder and 80 
column printer. The program has been 
adapted from one written for the Com- 
modore VIC 20/64 by John Stilwell of 
Madison, WI, USA which was published 
in the February, 1984 issue of the 
magazine RUN. 

When you run the program you will be 
asked to enter a file name, [RETURN] 
Without entering a file name will result in 
a default to the file title 'NO МАМЕ. 


wish to file and press [RETURN] once 
more; your entry will then be confirmed 
on screen. “l (Insert) follows the same 
procedure as Enter. When you enter the 
desired information, it will be entered at 
the designated line number. All lines with a 
higher number will be incremented by 
one and no information will be lost. 'N' 
(New File Name) will ask 'Are you sure?'. 
Entering a new file name will result in the 
loss of any information stored in the 
current file. 'S' (Save to Tape) will ask 
"Are you sure?'. If your answer is “Y just 
follow the screen prompts. As each entry 
is saved ontotape, its line number will be 
displayed at lower left screen. This ser- 
ves as a check that the saving process is 
working OK. The word ‘COMPLETE’ will 
appear when all of your file is saved to 
tape. 

"L' (Load From Tape) will again ask for 
confirmation. Load is similar in operation 
to Save except that you will be asked to 
enter a file name. During loading, the 
word 'WAITING' will appear as usual. 
This will be followed by the word 
‘FOUND’. The word ‘LOADING’ does not 
appear. As each item is loaded its line 
number will be displayed at lower left 
screen as a check that the loading pro- 
cedure is going according to plan. 

“H° (Hard Copy) will allow you to pro- 


Database VZ-200 


by Ted Barker 


Some three seconds later a list of one- 
letter commands will be displayed. [M] 
will display a full menu, detailing the 
meanings of the one-letter commands. 
(Menu may be called at any time without 
affecting file entries). 

Information is entered into pages, [P], 
each of which holds 10 line numbers. 
[Е]. The total amount of information 
which may be filed is determined by the 
value of 'N' (number of lines) in Line 
140. In the listing 'N' has a value of 400 
which should allow up to 32 characters 
of entry per line. 


duce a print-out of your file. The file name 
will be enhanced, followed by the 


remainder of your file in unenhanced 


type. You will have the option of printing 


` the entire file or of specifying a sang 


and ending line number. 

‘D’ (Delete) follows the same pro- 
cedure as Enter and Insert. A line num- 
ber entered after the “Ы” command will 
result in that line being deleted from the 
file. Higher line numbers will be 
decreased by one, leaving no gaps in 
your file. No information will be lost, 
except for the line you deleted. 'A' 
(Alphabetize) allows entries to be placed 
in order after they have been entered. 
You may place the entire file in alphabeti- 
cal order, or specify starting and ending 
line numbers. (Note remarks in Using 
The Catalogue.) 'M' (Menu) displays 
menu on screen in case you forget what 
the single letter commands mean. 


Using the catalogue 


If you wish to split your files into separate 
categories you may display category 
headings in the file catalogue. To do this, 
the entry is made in the usual way but 
with an inverse 'C' preceding the entry. 
Line 170 in the program reads this 
character, ASC(195), and places those 


ñ. 
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Commands 


*C' (Catalogue) will display the file name 
‘together with any lines you have 
designated as catalogue entries. (See 
Using The Catalogue). ‘P’ (Page), will ask 
you to enter a page number, (1 to 40 in 
the program listed). Enter a page number 
and press [RETURN] and the page, 
together with 10 lines will be displayed, 
ready for reading or making an entry. 'E' 
(Entry) asks for a line number; enter the 
required line number апа press 
[RETURN]; enter the information you 


entries in the catalogue, together with 
the page number on which they 
appear. 

As these entries still appear in their 

` correct position in the body of the file, it 
may be an advantage to enter the whole 
of that entry in inverse print, thus making 
the category headings stand out when 
going through the file. When using the 
Alphabetize routine on a file containing 
inverse 'C' entries, it is essential that the 
line number after the inverse 'C' entry is 
used as a starting line and that the end- 
ing number should not be greater than 
the entry containing the next inverse С”. 
If this rule is not observed the inverse'C' 
entries will be alphabetized with the rest 
of the file, thus destroying its usefulness 
as a category heading. 

If you enter a command letter by mis- 
take, just enter another command 
instead of a line number. Omit all line 
numbers below 100 as this will allow а 
little more memory available for your 
database. i 

When you have completed all your 
entries, make one more entry on the next 
line. This entry should be’ END’. If you do 
this the alphabetize and catalogue 

routines will run much more quickly. 


PC. Avy 24- Vs(3) 
Р 172-179 
poet 6. 


Арс. Suir) 


“РЕІНТЕ 4, "т, акысы 


а пи a 
u"a u' a m" lt 


ú m 
va 


3 CLS: COLORS 
4 РЕТНТІ 25 
= РКІНТЕ 


» Wi 


ре: PE ІН ҮТ@1 ES." “waa a ича" 

a PE I HT [2 1 se Тан "^ Pa" n n a ui a gs! 

ій PF T F Tt ГА = ‚ u..." шн, М, m тшш т! 

11 FFETHTIw: еу "a "u Ss "x "e = 

1 z F n J HT ! Іш s A "a" a" a" mu "n a ar) ы! 

1 3 РЕ I HI ed 3 uy) "a "a "a w" 

1 4 F E І Ыы: е и ыыт, ا‎ тн; BAM Mar al o ша 
2. AM DEUM. 


me 
Н 


HEST 

S E ТТТ 
+ DATA ЕНСЕ Vz-zügBb + 
EHF ais Ан et 


see A 


RED ER Rb b +++ 
ТЕС 4 


! НЕРІ ЕТ. ; 
h dp о eee реч И 
SPR IHS. "Se Е ee ps" 
інте "ТҮНГЕ PROGRAMME HILL C 
STEMS ШЕ ІМЕПЕНМЕТІПН 


PERC Avg 54 V (9) 
Р 192-179 
Babe 


Many thanks to you and to 
Ted Barker with his VZ-200 
Database. It's nice to know 
somebody remembers the 
little people. As Dick Smith 
continually sprooks. there 
have been 'over 25,000 sold', 
and that's 25.000 people out 
there with no usable software 
to speak of. 
Does anybody know of a 
suitable word-processor type 
program for the VZ-200? I ñ PC r (i0) Oct. 34 P 214. 
can't find one! 
Again, many thanks, and 
keep up the good work. 


Ben McQuillan 
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д4 PRIHT@ISS. "CONTAIHIMG 18 LIMES." - 
Bets. "YOU MAY EMTER. INSERT. DELETE" 
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AS="H" THEN GOTO Sau 
Ag="S" THEN GOTO бай 
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В IF H$-"L" THEH GOTO ü e 
B IF AS="H" THEH GOTO 5 
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а IF A$=" O" THEN GoTo 5 

me IF in "R" THEH GOTO B 4 
318 IF ="М" THEH GOTO Sea | 
3 IF Pi .H*1 THEH Е=.1:50Т0 166 lel: 
3 GOTO 154 s | 
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НЕХТ I:IF Kz1 THEN GOTO 

НН=КЕ 

[=й 

J=: IF IsHH-l) THEN GOTO 25A 
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J=J+1: ‘GOTO 5 


оь 


CO O ca ба 


mmm TSS D 
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GOSUB 910 
НЕТ 
CLS: PRINT@194. "ШОЛИ" 
PRINT@26@."FRESS <F> FOR FILE." 
KS=INKETS 
IS=INKEYS: IF І%-"" THEN GOTO 1424 
IF 1$="F" THEN GOTO 336 
A РКІНТІ?166, "STARTING "FSi: IMFUT AS 
PRINT@232. "ENDING "R$; : THPUT ЕФ 
A W=VALCAS >: KK=VALC B$ 2 
2 FÜüRISKKTOGSTEF-1:IFSSCIo2"-"THEHKKZI:Iz8:GOTO 1527 
5 KKZI 
HET 
A К=й:КОК Ізі) TO KK 
A NN=I-1:I=KK 
HEMT I:IF K=1 THEN GOTO 1570 
3A HH-KK 
a 1=4 
А J-U:IF I-HH-U THEN GOTO 354 
IF Ј=НН-І THEN GOTO 1620 
IF $$6.1525$C.1*15» THEN TP$-z$6.15: 2&5 1о0-5%6.1%12:2%6.151о-ТРФ 
J=1+1:GOTO 1530 
I=I+1:GOTO 1536 


A.Pc. hq Ја. М5(5), 
122-701 
Bot Ж. 


Self 
assessment 


| expect that Ted Barker 


| would like to suggest 
that users of published pro- 
grams voluntarily contribute 
to the authors a sum based 


АРС would have been pleased on whatever the program is 
with R Quinn's comments worth to them. | think this - 
Oct 85 бе) about the У2-200 database would be an incentive to 
p 32-33. (APC July 85) unkind as produce better programs. 


they may have been, on the 
premise that any comment is 
better than none. The main 
reason for submitting pro- 
grams for publication must 
be the hope of getting 

some feedback, which 
would suggest improve- 
ments. Expectation of 
financial gain must rate 

very low: if and when the 
publication fee is received, 
generally many months after 
submission, it does not 
cover much more than the 
actual cost of preparing the 
program for submission. 


As an example, | would 
gladly send $5 to J Coyne 
(Amstrad See PC, APC 


June); | would value it at. 
$10 if it had been renum- 
bered, if | had not had to re- 
write his machine language 
to make it relocatable (to 
allow for merging), and to 
provide an optional output to 
printer. 

| hope that you will 
publish this suggestion and 
any readers' reactions to it. 
P Lukes 


Comments please — Ed 


Minicalc is a spreadsheet program 
requiring a 24k VZ-200 system and an 
optional 80-column printer. It is based 
on a program written by Barry Spencer in 
the April 1984 issue of Rainbow 
magazine. 
It features the following facilities: 
— 9 x 43 cells on the spreadsheet 
— tape storage and retrieval of data 
and functions 
— dump to a printer 
— column and row addition functions 
as well as +, —, *, Z, Ж, absolute and 
integer functions 
— non-destructive function view com- 
mand to display formulae assigned 
to any cell 
After you RUN the program, you will 
be greeted by the title screen and asked 
whether you require instructions. Hitting 
the 'Y key will display the commands 
available and the syntax required to 
implement them. Note that when enter- 
. ing formulae for the cell functions, it is 
often necessary to use commas(such as 
when specifying cells). Unfortunately, 
the INPUT statement in Basic will not 
accept characters entered after a comma 
unless the entire input is enclosed in 
quotation marks. The resultotherwise is 
an ? extra ignored' error message. 
Hitting ‘Y will enter the spreadsheet 


18 ? 
1202 


----MINICALC---- 
REQUIRES 24K SYSTEM 


Minicale Spreadsheet 
by Chris Stambovlidis 


proper and the upper left section will be 

displayed (there are 16 overlapping sec- 

tions in all). The ‘>’ prompt means that 
you may now enter a command. 

To enter data, simply type Gx, y and hit 

. (RETURN); x and y specify а cell .x 
positions across and y positions down; 
this can be thought of as a GOTO com- 
mand. When the 'G' cursor appears in 
the specified cell, you may enter num- 
bers of strings up to 8 characters in 
length. From here, you may use the cur- 
sor control keys to move around the dis- 
played section of the spreadsheet, 
entering data as you go. To get back to 
the command mode, simply hit 

(RETURN). 

To enter formulae, use Fx y where x 
and y specify the cell in which the result 
will be displayed. An 'F' cursor will 
appear in the cell specified and you will 
be prompted to type in the function into 
the two: upper-most screen lines. 
Remember to use quote marks here, and 
hit (RETURN) when finished. 

The four pre-set functions are: 

— Ca,b gives the sum of the values 
appearing in the column from row 
atorow b 

— Ra,b does the same іп a row from 
column a to column b 

— “А at the beginning or end of a for- 


576784 


mula takes the absolute value of 
the result 

— ‘I’ at the beginning or end takes the 
integer value of the result. When 
specifying cells, use square 

` brackets 

eg, [3,13]. 

To view a function in a particular cell, 
use Vx y, hitting (RETURN) to get back to 
the command mode. 

Movement from section to section 
within the spreadsheet is via the MU, 
MD, ML, MR commands (move up, 
down, left & right). MH returns you tothe 
upper leftmost section. 

S and L are used for saving and loading 
from tape, and P enters the print 
mode. 

U will update the entire spreadsheet, 
ie, all formulae will be calculated and the 
results displayed. Note that calculations 
occur from top to bottom, so that if a for- 
mula refers to a cell below it, you must 
update twice. 

Finally, when typing in the program, 
the following characters should be 
entered in inverse text: 


line 180 ; "?" Сия%(%5%7 
line 450; “6” <ч«34(144) 
line 510 ; “F” cand ( 148) 
sa «з» APC sh): 214. 
CORRECTION 4 


15 CLS:PRINTe200,"M I NICAL с" 
20 CLEAR7@00 :DINL$(9;43),U040), 1$(9, 43) 
"SNEXT:SIS-LEFTS(C 


30 FORI*=1T032:S$=S$+" 
$$,30) :S2$-LEFTS$CS$,23) 
28 PRINT8489, "INSTRUCTIONS?" ; 

72 WS=INKEY$ :ІҒИФ= " "ТНЕМ22 

24 IFWS="Y" THENGOSUB2@Q@ELSE ІҒИФ= "N" THEN 
SOELSE72 

80 CLS 

100 FORT*=28736T028767 :РОКЕТХ, 32:NEXT: PO 
KE28749, 50 :POKE28759, 51 

105. POKE28739; 49:PRINT836,; "" ; 

110 FORT*-1TO12:PRINTRIGHTS$CSTRS$CTx),2): 
NEXTSPRINT*13"3 

130 ҒОКТ2-28269Т0291545ТЕРЗ2:Р-РЕЕКСТ2): 
ІЕР>ӨЗТНЕМРОКЕТх, Р-64 

135 МЕХТ 

140 ЕОЕТ2-28268Т0291535ТЕРЗ2:Р-РЕЕКСТХ9: 
ІЕР>ӨЗТНЕМРОКЕТх, Р-64 


VE (10) 
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150 NEXT :XS=@:YS=@ 

120 PRINT@@,S1$;5 

175 PRINT@Q@, "> " :PRINT:P=2:ñ$="":C$="" :PR 
INTGP,"";:68$-INKEY$ 

180 AS=INKEY$ :BS=INKEY$: IFAS="" THENPRINT 
@P,"?"5:GOTO18a 

185 ІҒА%-ВФТНЕМ180 

190 PRINTGP," ";:ІҒА%-СНР%С132ТНЕМ230 
200 IFAS$-CHR$C8)RNDLENCCS$J» QTHENP-P-1 :C$ 
=LEFT$(C$,P-2) :GOTO180 

210 C$=C$+A$ 

220 PRINT@P,A$; :Р=Р+1 :GOTO180 

230 L$-LEFT$CC$,; 1) 

240 IFL$="G"THENF *=@ :GOTO33@ 

250 IFL$="F"THENF%=1 :GOTO33@ 

260 IFL$="U"THENF%=2 :GOTO33@ 

220 IFL$="U"THENS49 

280 IFL$-2"S"THENS20 

290 IFLS$-"L"THEN1060 

300 IFL$-"M'THENI11280 

310 IFL$-"P'"GOSUB1320 

315 IFL$-"Q"THEN2200 

320 GOTO120 

330 L$z"":FORTXx-2TOLENCC$) :M$-MIDS$CCS$, Tz 
; 12: IFM$-2","THEN360 

340 | $=| $+[1$ 

350 NEXT:GOTO120 

360 L$=RIGHT$(L$,1J):X=UñL(L$)-XS:IFX+XS> 
ЭТНЕМ17@ 

320 L$=RIGHT$(C$,LEN(C$)-Tz) 

380 Y-sUABL(L$)-YS:IFY? 14THEN120 

390 IFFzxz<>2THEN430 

400 IFLENCISCX*XS, Y*YS))-O0THENI12OELSEII1- 
1 

410 PRINT832,S$; :PRINT832,MID$SCIS$CX*XS, Y 
tYSJ;,1t32X*(11-125 3293 

420 I1$-INKEY$:GS$-INKEYS$:IFI1$-2""THEN420 
422 IFI1$-G$THEN420 

424 РВІМТӨЗ2,51%; | 
425 IFLENCISCX*XS, Y+YS))>32kKI1THENI1=I1+ 
1:GOTO410ELSE120 

430 IFX<10RX>30RY<10RY>13THEN17@ELSEPRIN 
T@32,S$;5 

440 Р-ҮЖ32%ХЖ10%52:РБІМТӨР," (S SP) 
L$(%X+XS,Y+YS)="" 

445 IFFX-1THENGOSUBS10:GOTO120 

450 R$-INKEYS$:B$-INKEY$:IFA$-2""THENPRINT 
@P,"G"3:GOTO45a 

455 ІҒА%-В%ТНЕМ450 
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460 PRINT@P," "; 

465 IFAS=CHR$C 13) THENSG@ELSE IFAS=CHR$( 10 
JTHENY=Y+1 :GOTO430 

466 IFRSZCHR$C8)THENX-X-1:GOTO430 

420 IFR$-CHR$C22)THENY-Y-1:6G0T0430 

425 ІҒА%-СНК%(92ТНЕМХ-Х%1:05070430 

480 IFAS$-CHR$C8)RNDLENCLSCX*XS, YtYS))» 0T 
НЕМР-Р-1:50Т0485Е1(5Е490 . 

485 L$CX*XS,Y*tYS)-LEFTSCLSCX*XS, Yt YS),LE 
NCLSCX*XS, Y+YS))-1) 

486 GOTO450 

490 L$(X*XS,Y*tYS)-L$ X*XS, Yt YS) *R$ :PRINT 
eP, A$; :Р=Р+1 

495 ІЕР<5511ТНЕМ450 

500 6070120 

510 PRINT@P,"F";:PRINT@0,  I$(X+XS,Y+YS) 
530 PRINT90,S1$:PRINTG0, "" ; > INPUTI$:GOSU 
В1150:0=0 

535 I$(X+XS,Y+YS)=I$:Xñ=x+XS:Yñ=Y+YS 

540 0-20:U(0)-20:FORTX-1TOLENCIS$) :М$=МІОФ ( 
I$, ТХ, 1) 

560 IFM$="["THENX$="" :Ү$="" :с0Т0880 

520 IFM$-2"«"THENX$z'":Y$z"" :60701116 

580 ІҒМФ= "К"ТНЕМ256 

590 ІЕМФ="С"ТНЕМ250 

600 NEXT :1х=0 :Ј=0(0) :071:FORTX-1TOLENCIS 
J:M$-MIDS$CIS$,; ТХ, 1) 

630 IFM$z2"X"THENUZUXUCOJ :GOTO930 

640 IFM$z2"t*"THENUZU-*UCO) :GOTOS3O 

650 IFI$2"^/"THENUZU^ZUCO) :GOTOS3O 

660 IFM$-"-"THENU-ZU-UCO) :GOTOS30 

620 IFM$-"I"THENIXx-Ix*1 

680 IFH$="ñ"THENIz=Iz+2 

690 IFM$-2"^"THENUZU^UCO) :GOTOS30 

208 NEXT 

210 IFI*=1THENV=INTCU) 

720 IFIX-2THENU-8RBSCU) 

730 IFIX-3THENU-INTCABSCUJ) 

240 GOTOS60 

230 FORT4X-2TOLENCIS$):IFMIDSCIS,Tz,1)-2"," 
THEN26SELSE720 

265 T1$-MID$CIS$,2, TX-2):LL-LENCIS$)2-T4:T2 
$-MIDS$CIS$,;TX*1;LL) 

266 GOTO280 

270 NEXT 

280 V=@0:IFN$="C" THEN830 

800 FORT*=VALCT1$) TOVALCT2$) :UZU*URL (L $ ( 
ТЕ, ТА) 2 :МЕХТ :GOTO860 

830 FORTX=VALCT1$) TOVALCT2$) :U=U+UALCLSC 
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ХА, T)):NEXT 

860 PRINTGP-1," (357) " 3:PRINTGP,U;:L$ 
СХА, YA) -STR$CU) 

865 IFLEFT$(L$(XA, ТАЈ, 122" "THENB66ELSE8 
20 

866 L$C(XA, YAB)-RIGHT$(L$CXA, ТАЈ, LENCL$CXA 
; YR32-12 

820 RETURN l 

880 Tz=Tz+1]:M$=MID$CI$,Tž,1):IFM$=", "THE 
м9ве 

890 Х%-Х%%М%:6070880 

900 Tz=Tz+1:H$=HID$CI$,Tz,1):IFH$="J"UTHE 
N920 

910 Ү%-Ү%-М%:5070900 

920 X1-UALCX$) : Y 1-UALCY$ ) :UCO)-UAL CL$CXI 
, Y122:020*1:GOTO600 

930 0=0+1 :МЕХТ :GOTO170 

940 FORYz-1T043:FORXz-1TOS: IFISCXx, x)=" 
"ТНЕМ960 

950 I$=I$(Xz,Yz):X$="":Y$="" :ХА=ХХ:ҮА=ҮХ 
:60508540 

960 NEXT :NEXT :GOSUB124@ :FORO-S8TO480STEP 
32 :PRINT@O;S1$ 3 :NEXT I 
962 PRINT@482, 52%; :РОКЕ29183, 32 

964 FORXx-1TO3:FORYx-1TO13:PRINTGYzx32«4X 
XX10*52,L$ CXx*XS,Yx*YS); 

966 NEXT :NEXT :GOTO120 

920 INPUT"HIT «RETURN» TO SAUE" ;NAS 

980 FORTz-1T0S9:FORYz-1T043:PRINT&"MIN",L 
(Т, Хх), ISCTx, YX) : NEXT 

990 NEXT :GOTO170 

1860 INPUT"HIT «RETURN» TO LOAD" ;TA$ 
1220 FORTx-1TOS:FORYx-1T043: INPUTH"MIN", 
L$(Tz,Yz),I$(Tz,Yz):NEXT 

1080 NEXT:GOTO170 

1110 Il$="" 

1120 Tz=Tz+1:H$=HID$(I$,Tz,1):IFH$=">"TH 
ЕМ114@ 

1130 11%-11%%М%:60701120 

1140 UCOJ=UALCI1$) :0-0*1:GOTO600 

71150 IFIS$-"N"THEN120 

1160 RETURN 

1170 L$-MID$CC$, 2, 1) 

1175 IFL$="H" THENXS=@ : YS=@ 

1180 IFL$-"L"ANDXS <> @THENXS=XS-2 

1190 IFL$="R"ANDXS <6THENXS=XS+2 

1200 IFL$="U"ANDYS<>@THENYS=YS-19 

1210 IFL$="D"ANDYS<3@THENYS=YS+10 

1220 GOSUB1240:GOSUB1290 
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1230 РОКЕ282743,50%Х5:РОКЕ282753,51%Х5:РОК 
Е282339,43%Х5 

1231 FORXz=1TO03:FORYzxz=1T013 

1232 PRINTƏYzxX32+Xzx10+52,L$(Xz+XS,Yz+YS 
23:МЕХТ:МЕХТ:60Т70120 ë 
1240 FORYX-z1TO13:FORXX-z1TO3:PRINTGYxx32«* 
XXX10*57," و‎ 

1250 NEXT :NEXT:z=58:FORñz=282239T029163ST 
ЕРЗ2:РОКЕАХ, 2 

1260 POKEAZ+1, #:POKEAZX+10, 2 :POKEA%+11,2: 
POKEAZX+20, 2 :NEXT :RETURN 

1290 FORYzxz=1T0O03:Px=28236+Yxx32:Tx=YSZ10- 
1+49:РОКЕРХ, TZ : NEXT 

1300 FORYZz-10T013:P«-282736*YxX32:Tx-YS7] 
0+49 :РОКЕРХ, TX : NEXT 

1310 RETURN 

1320 PRINT@@, "START РОИ" : INPUTA:PRINT@@, 
" LAST ROW" : ІМРОТВ 

1340 FORY=ATOB :FORX=1TOS 

1350 І РРІМТТАВССХ- 1 ЈЖЭЈЕФСХ, TIS 

1360 NEXT:LPRINTCHR$C13);:NEXT:RETURN 


. 2000 CLS:PRINT"COMMAND" :РКІМТӨ 12, "SYNTAX 


2010 PRINT" QGUIT"TRBC132"Q":PRINT" CELL 


ENTRY"TRBC27)"GX,Y" 

2020 PRINT" FUNCTION ENTRY ЕХ, Т" :PRINT 
" FUNCTION VIEW UX, Y" 

2025 PRINT" MOUE HOME"TABCBJ ME" 

2030 PRINT" MOVE LEFT"TRBC8)"MPL " :PRINT" 
MOVE RIGHT"TABC7) "MR" 

2050 PRINT" MOVE UP"TABC1@)"MU" :PRINT" H 
OVE DOWN" TABC8) "MND" 

2020 PRINT" UPDATE" TABC11)"U" :PRINT" SAU 
E PQ: TAPE Se 

2030 PRINT" LOAD FROM ТАРЕ EPSP RINT UE. 
RINT hee 1 220927 

2115 PRINT" USE QUOTE MARKS. FOR FORMULA 
Е":РКІМТӨ491, "«КЕТПЕМ>"; 

2120 Q$-INKEYS$:IFG$-""THEN2120 

2130 IFOG$-CHR$C13)THENRETLURNELSE2120 
2200 PRINT@1,"ARE YOU SURE" ; : ІМРОТАМФ 
2210 IFAN$-"YES"THENCLS :CLEARS@ : END 

2220 GOTO1270 
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Mini Cale. 
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And from Chris Stamboulidis who 
submitted the program “Mini Calc' 
published in the October issue of 


APC: “There was one point which l omit- 
ted to mention in the documentation. 
When writing numerical constants | 
during the entry of functions, ensure that 
they are enclosed by '€' and ‘>’. 9 
- For example, to multiply the contents 
of cell 2,4 by O.3, you would write: 
"[2,47]*«.37»" 
Also, the SAVE routine should be mod- 
ified to prevent possible problems with 
'INPUTs*'ing strings with commas 
inside them. The following lines should | 
now read: 


970 INPUT "HIT <RETURN> TO SAVE"; МА%:ҒОН T 96 = 1 TO 9: FOR YX= 


1 TO 43 


980 PRINT3*"MIN",CHR$(34)LS(T96, Y?6), CHR$(34)1$(T96,Y?6): NEXT: NEXT 


990 GOTO 170 


APC (а) Фе. da 


Р 214. 


Micro Type 


by G Browell 


As a У2-200 addict, and in response to 
the plaintive plea of S Hobson (Basic 
Understanding APC February 1985), 
the following program is sumbitted to 
make him happy and for all VeeZedders 
seeking a Basic word processor... 

PS If S Hobson's idea is taken to 


extreme one could write a REM for just 
about every line — Hobson's Choice?! 


NOTE: Use inverse for commas, colons 
and semi-colons. Use inverse for upper 
case. Use a blank graphic (Shift Z) to 
indent the first line of a paragraph. Scroll 


before Editing and before committing to 
printer. Should the program 'Break' just 
type GOTO80 «RETURN». 


! REKK AKA KKK KKH K KAKA AK KKK KKK 
^X RD LIB VEEZED MICRO CLUB X 
^X «MICRO TYPE? PROGRAM * 
"x FOR У2-200 AND GP-109 Ж 
E: GORDON BROMELL MAY 84 X 
"XXXXXXXXXXXXXXXXXXXXXXXXXXXX 


CLS: CLEARS209:PRINT@22S, "ШВЕИ аха A=" : SOUND 16,6 


^XXXESTIMHTE NUMBER ОР LINEZX*x* 

PRINT#235, "ІШІМЕЗ "j: LO: x=6: INPUTL:DIMZSCL? 
РКІМТЕ299,"1. 1880058813" : PRINHTES31, "2. AMDA" 
PRINTR400,""5 : INPUTR : IFR=2THENS12 
FØRJ=1TOL:CLS:PRINTES, "MINE" Ji "OF"; L 


”ЖЖЖТҮРІМІ GUIDEXXX 
A PRIHT?34, "WOREDE TTET EO" 
PRINTE 128 5 TAPIET" : 50100022, 1 


*ЖЖЖРКЇНТ PREVIOUS LIHEXXX 
PRINT@162, "MINE" J-1:PRINT8226,2$( J-1 2 


*ЖЖЖЕНТЕК ТЕЖТЖЖЖ 
PRIHTG32, "El" : INPUTZ8¢ J): NEXT: CLS 


* RAMEN KKK 

CLS:R$sINKEY$:R$z"" 

PRINT@4@, "ШЕКПЕН ФИ"; 71: PRINTOG104. "BIROLL" 
PRINT@116., "IZDIT" :РКІНТВ1 6а, "RINT" 

PRINT@232, "IdMILE" :PRIHTG296, "IGETRIEVE" :PRIHTG36O. "EMIT" 
PRIHT2?421, "ITD MI QI S00 G d CO j +, 

RS-INKE''$ : IFFiSZ""THEHSE! 

НФ-ІНКЕҮ%:ІРНФ-""ТНЕНЭО 

ІЕНФ-"5"ТНЕМ6 

ІЕНФ-"Е"ТНЕН200й 

ІЕНФ-"Р"ТНЕН100 

ІЕНФ-"Е"ТНЕН400 

IFAS="R" THENS 22 

IFAS="4" THENRUH 


АРС May $s (с) Р 162-163 


lof 2. 


93 '#+*+#*LPRIHT ТЕХТЖЖЖ 
100 CLS:FORJ-1TOL:GOSUB399:NEAT : 6071080 


199 'XXXEDITXX* 
200 CLS:PRINTG40, "IIT" :SOUND14, 3: PRIHTG4S, "LIKE"; : INFUTC: XC 
210 ІЕСЯТНЕН2яО =; ( 
20 РКІМТ866,2%(С2; 
232 PRINT "1009" : IHPUTDS 
231 ІРр%=""ТНЕН89 
232 G=LENC DS): S=LENC Z5 C22 
233 PRINT А42 4м": INPLITRS 
234 FORZ=1TOS 
235 IFMIDSC2$CC2, 2, Q)=D$THEN239 
236 HEXT Л 
237 PRINTOS: PRINT "ИАА" 
238 SOUNDO,3:GOTOSO 
239 E=2-1+LENC DS > 
240 NS=LEFTS¢ Z$. C 2, 2-10+RS+RIGHTSC 2800 2, LENS ZSE C )>—E 2 
241 2$(CozN&:GOTUZO 


299 'XXXRSCII CONVERSION КОК LUFPER*LOWER САЗЕЖЖЖ 
390 FORI=1TOLENS Z25 J22 

385 1Е2%62о-""ТНЕН2% Joz"g" (SHIFT 2) 

210 R-RSCCRIGHTSCLEFT$C2$6 15, 12,1252? 


320 IFA>=64ANDA< =9STHENA=A+32 
330 IFA>=192ANDAS =223THENA=A-1 
348 IFR2>=224RHDR<=25STHEHR=R-1 
350 LPRINTCHRS A 2; : НЕХТ 

360 LPRINT 
378 RETURN 


399 *ЖЖЖР1ГЕ TO ТАРЕЖЖЖ 
443 CLS: PRINT@6S. "NPE ISILE": SOUHD16,2:PRINT@ZSS, "p AAMAS) П ' 
410 SQUND22,9:CLS ° 

420 FORJ-1TUL 

421 PRINT8"",2$(J» 

422 PRINT MINE" J 

423 SOUND32, 1 

439 NEAT 

445 CLS: PRINTEZ., "ТОР ТАРЕ" : SOUMDe4, 9: CLS: 507080 


499 'ЖЖЖКЕТК1ЕУЕ FROM ТНРЕЖЖЖ 
тай CLS: PRINT@226, IMETRIEVE": SOUND22. 6: PRINTEZ96, "MIHEZ": IHFUTL 
510 SOUND24,5:CLS 

520 FÜRJ-1TOL 

530 INPUTS"".2$C.J»: PRINT@464, J 

240 °RIHTZS¢ J} 

550 NEXT 

568 PRINT "EDEN ERENI" : SOUND2E,9 

278 CLS:GOTOSO 


CEXXSCROLL FOR TEXT КЕУІЕШЖЖЖ 
CLS:FÜRJzZ1TOL:PRINTJ; :PRINT2$6 J’ 


599 
600 


603 'XXXCOMTROL SCROLLING SPEED*XX 
610 FORT=17T01000: NEXT :FORT=1 702008: HEXT:NERT:GOTOGO 


APC төзе 6(5) >p @-/(3 
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"When ENTERing or INSERTing data. 
If RETURN key is pressed without any 
data being placed in the line, Database 
will enter/insert a row of nine asterisks. 
This can be used as a handy divider, 


clearly separating one block of lines from . 


„another. The asterisks сап be replaced 
with any characters you wish, to serve 
any purpose you can think of (the Basic 
lines in the listing are 430 and 460). 

AUTO repeat of INPUT in same place 
on screen, with warning buzz, if you try 
to enter a line number longer than the 
maximum permitted, or if an END line 
number is less than a START line num- 
ber. Fractional/negative entries for line 
numbers are rectified. 

Where START and END line numbers 
are requested (HARD COPY, ALPHA- 
BETIZE). If you want the entire file 
operated on, simply press RETURN key 
twice. To START at line O and END at a 
certain line number, press RETURN, 
enter END line number and press 
RETURN. To START at a certain line 
number and work to end of file, enter 
START line number and press 
RETURN twice. : 

The ALPHABETIZE routine will dis- 
play its progress on the screen: each suc- 
cessive line number will appear in 


bottom left of screen as the new start and 
the numbers of all the lines processed 
each time are rapidly displayed to the 
right. 

PAGE CALL (press P). If RETURN is 
pressed without entering page number, 
Database takes this as page one. Then 
each successive press of P will display 
the next page; to restart PAGE CALL, 
simply press RETURN and P keys. 

CATALOGUE has HALT and QUIT 
options. If there are too many catalogue 
lines to fit on one screen, CATALOGUE 
will display the excess lines in scroll 
fashion with pause between each line. 
Press any character key other than M to 
HALT CATALOGUE; again press any 
character other than M to CONTINUE 
CATALOGUE. Or press M key to QUIT 
CATALOGUE before CATALOGUE 
finishes its listing. 

By altering/adding six lines of coding 
an INCREMENT LINE NUMBER is 
implemented. This allows you to enter 
successive lines of data without the 
irritation of having to press the E key 
again, then enter line number, then press 
RETURN. Simply press CTRL key and 
the ENTER LINE NUMBER will be 
incremented, allowing you to enter the 
data for the new line straight 


away. If you want to change the last line 


you entered/inserted/deleted, press x 
key and enter data. 


Database 
by Robert Quinn 


In the August 1984 issue of APC a 

database program for the VZ-200 was 

published, submitted by Ted Barker. 
We have since received a letter from 


Robert Quinn of Wagga Wagga who 
insists that the program was a ‘sloppy, 
incompetent piece of coding, filled with 
„errors, omissions and redundancies”. 


Tough stuff, eh! 

„But Quinn has put his money where 
his mouth is and supplied his own ver- 
sion of the program for VZ owners. Over 


Cassette SAVEing and LOADing is far 
too slow and unreliable for me to ever 
make use of the SAVE/LOAD routines of 
Database (imagine trying to SAVE/ 
LOAD 399 lines of data, each line а 
separate data file on tape). Besides | have 
a disk drive and so will be designing 
DISK. SAVE/LOAD routines. However, 
the cassette SAVE/LOAD routines could 
be sped up. One way would be to fit 
several Database lines in each data file to. 
tape. | leave that to someone else to 
develop who has the interest/need. 

Another option is to have the SAVE 
routine only record those Database lines 
which have data in them, skipping the 
empty lines until the next data- 
containing line is reached. Of course it 
would only speed up CSAVEing and 
CLOADing if there are lots of empty lines 
between lines of data. | have designed 
the modifications that should do the trick 
and appended the code to the end of the 
listing. If you wish to try it then enter 

those modified/additional lines to the 
program. 

In the listing INVERSE characters are 
underlined. K=K+1: ofline 1270 can be 
deleted (a harmless redundancy of 
BARKER that slipped through). 


А.Рс. Solar V¿((. 


pit- 44 
! ol 2. 


to Robert... 2, 


ROBERT QUINN 

З MARCONI STREET, 
KOORINGAL: WAGGA WAGGA, 
N.S.H. 2650 


DATABASE: R.Q. VERSION 


100 COLOR, 1 :CLERR12000:F $=" "iESR"E, 
PE, liN S.L. HDR" 

110 CLS:PRINT"FILE NAME.” ; : INPUTTS :IFTS- 
““THENTS="NO МАПЕ" 

130 Т6:(ЕҒТ74(76,142:76-<"ӨКЕ YOU SURE (YZ 
N)" 

140 R=40Q0:P=1:X=(N+1)Z1@ :OIRS$(N):R6="LI 
NE NUMBER” 

145 FORJ=@TON:S$(J)="-" :NEXT :Мам- 1 :CLS :G 
ото2@@ 


15@ K=@:CLS:PRINT@@, "CATALOGUE  ";T$:PRI 
NT:PRINT"PRGE" 

160 FORJ=@TON:AK=ASC(S€(J)):IFAK=1SSANDK 
> 1 3THENSOUNO@, 2 

129 IFRK-195, PRINTINT(J/10*1);RIGHTe(S&( 
JJ LENCS£CJ)2-1) :KeKel 

125 AS*INKETS :AS=INKEYS : IFAS O "" THENZ«NO 
T2 :SOUND3@,2 

180 IFS€(J)*"END"ORA&« "TI" THENJ =N :GOTO] 90 
185 IF2X0THENI2S 

190 NEXT :2-0 

195 КЕП CONTROL KEYS 

200 соѕивязе 

210 IFAS="C"THENIS@ 


220 IFAS="P" THEN34@ELSE I FAS="E" THEN4] QEL 
SE IFAS=" 1" THEN44@ 


230 IFAS="N*THENS2@ELSE IFAS="S" THEN] 21@E 
LSE IFAS="L"THEN]32@ 


240 IFAS="H" THENSSGELSE I FAS="D" THEN230EL 
SEIFAS="A“ THEN] 580 


250 IFAS="N"THENS6O 
260 60102090 


290 REM GENERAL LINE INPUT 
302 &-0:PRINT8384, C6 ;RS jF 6 ; :PRINTQ402, "* 
3: INPUTAS 


310 J=ABSCINTC(UALCAS))) : IFAS="" THENAS="2 
“ELSEGOSUBS@@ 


322 IFJ>NTHENSOUNO3@, 2 : GOTO3@@ELSERE TURN 


. 


330 КЕП PAGE CALL 

340 PRINT@384, “ENTER PAGE NUMBER" ; : INPUT 
AS :P=ABSCINTCUAL (AS) )) 

345 IFP=@THENP#=1] ELSE IFP>XTHENSOUND3@, 2 :G 


010340 

350 CLS:PRINT"PRGE "P" “T€:PRINT 

360 FORIsOTOS:L2(P- 1) £10 * I :PRINTL ;S€(L) : 
NEXT 

320 605084302 

380 ІҒа<>2ТНЕМ210 

390 P=P+1:IFP>XTHENP=1 

400 6010350 

405 КЕП ENTER 

410 C&=" ENTER *:GOSUB300 

420 IFA>@THEN2Z1@ 

430 INPUTSS(J):IFSS(J)9e""THENS€C J) 7 "XXkt 
ztfixi" 

4357Р«ІМТ(2/19е12:50Т0350 


438 КЕП INSERT 

440 C$-"INSERT ":GOSUB300 : [FA GTHEN210 
450 INPUTOS:CLS 

460 IFDS&2""THEND£-"$fzikiirkt" 

420 FORI*J*ITON:KK-2):IFSSCI)72"-" THENITN: 
NEXTELSENEXT 

180 РОКІ =ККТОЈ+15ТЕР-1 :54(1)=54(1-1) :NEX 


485 S#(JJ)=Ds:P=INT(J⁄Z1@+1):GOTO3S@ 

488 КЕП CHANGED YOUR MIND? 

430 PRINT@49@,E$ ; :GOSUBBSO 

502 Q-0:FORI-1TO11:IFASCCHIDSCES, 132-12) 
-12828SCCR& )ТНЕМА= 1 : [712 

510 NEXT :RETURN 

515 КЕП RERUN 

520 CLS:PRINT&131,Y€ ; : INPUTAS: [FAS="T"TH 
ENRUNELSECLS :GOTO200 


SSQ'REn MENU 

560 CLS :PRINT@6, "_HENU " :PRINT868, “CATAL 
OGUE” 

520 PRINT" PAGE CALL“ :PRINT" ENTER 
"PRINT" INSERT" 

S80 PRINT" ^ МЕИ FILE” 

592 PRINT" SAVE ON TAPE" :РЕІМТ" L0 
AD FRON ТӨРЕ" 


600 PRINT" HARO COPY ON PRINTER" 
619 PRINT" DELETE” :PRINT" ALPHABET 
Ize" 


620 .GOSUB498 :GOTO210 


1405 REM END OF SAVE/LOAD 
1410 CLS:PRINT8448," COMPLETE ":SOUNO3Q, 
23i20,2;10,2;0, 5:GOTO350 


1430 КЕП ALPHABETIZE 

1500 CLS:PRINT@4@, "ALPHABETI2E":C£-" STA 
RT ":GOSU8300 

1505 IFR»OTHENI6SOELSEK = :PRINT8448,K 
1510 C$-" END " :GOSUB3@@ :M=J : IFR» OTHEN 
1GS@ELSE IFAS="2"THENN-N 

1515 IFM<=KTHENSOUNO3@, 2 :60701510 

1520 FORI-hnTOKSTEP-1:nt"I: IFSSCI) < "Z"THE 
NI #@:GOTO1S4@ 

1540 МЕХТ:1=@ 

1580 J=K:PRINT@448,1I+K;" “;:ІҒІ-П-КТНЕМ 
350 

1590 IFJ=n-ITHEN1620 

1600 IFS$(J)>S$(J+])THENTP*$=Ss(J):S#(J)= 
S$(J+1):S#(J+1)=TPs$ . 

1619 J=J+1:PRINT@4SS,J;" “;:60701530 
1620 I=I+1:GOTO1S80@ 

1650 С(.5:РКІМТ8430,Е6:5070210 


FOR INCREMENTING ENTER LINE NUMBER 


145 FORJ=QTON:S$(J)=#="-“:NEXT:N=N-1:J=#Q:C 
LS:GOTO200 


192 «EXT :220 :J-0 


255 IFR$-"X"THENSOUND10, | :PRINTQ384, R$ iJ 
:GOTO430 


890 AS=INKETS :AS=INKE™S .IFñ6=CHR$(13)THE 
NAS= "2" 

895 IFPEEK(26822)=2S.rNQ)<NTHENJ=J+]:CLS 
186°" 

902 IFAS=""THENBS@ELSERE TURN 


NEW SRUE/LORD ROUTINES 


1242 FORI=NTOOSTEF-1-K=1 :IFS€C1)<>"-"THE 
NI=@:NEXTELSENEXT — . 

1252 FORI-QTOK:IFSS(. 10" -" THENF=F +1 :NEX 
TELSENEXT 

1260 INPUT” THEN PRESS <RETURN)";C 
1222 CLS:PRIN'8448, " 60035" 

1225 PRINT&"J2-DRTA",F :SOUNO@, 3 

1280 FORI=QTOK :IFS$(I)="-"THEN] 300 

1280 PRINTS"OATA",1,S€(1}-PRINT@456," LI 
NE ";l;:SOUNDO, 3 

1300 NEXT :F-0:GOTO1410 


1400 INPUTS"ORTR",F,SS(C7 ): PRINT94]6, "LIN 
E" iF 3 :NEXT 


“Қа, 


222 КЕП, DELETE 

232 C$-"DELETE ":GOSUB300 

735 1ЕМ›@ТНЕМ21@ 

240 FORI-JTON: IFSSC])e"- *PNOSSC I+] )="="T 
HENI =N 

250 5#(1)=5%(1+1) 

260 NEXT:Se(N+1)="-";P=IMT(J/1@+1):GOT03 
5@ 


882 КЕП WAITING 

890 AS=INKETS : А6 = | МКЕТ : [FAS="" THENBIGEL 
SE ІҒАЄ=СНКЕ (13) THENAS="2" 

S00 RETURN 


940 КЕП HARD COPY 

950 CLS:PRINT@41, “HARD ШОРТ" :Се-" START 
“ :GOSUB300 : IF A> OTHEN210 

960 K=J 

970 C$=" END. ":GOSU8300:r-J:1FR? OTHEN2 
lOELSEIFR$-"Z"THENII*N 

980 IFM<KTHENSOUND3@, 2 :GOTOS70 

990 LPRINT* жажж "T&:LPRINT 

1932 FORI-KTOn:&K-RSC(LEFTSCS&CID 122 
1042 1FAK=!SSTHENGOSUB] 020 :GOTO1060 

1952 IFS&(1) O "- " THENLPRINTSSCIO 

1060 NEXT :K=@ :GOTO2@0 

1922 FORR-1TOLEN(S&(12) :AK=ASC(NIDS(SSCI 
),8,12) 

1082 IFAK>223THENAK=AK-192ELSEIFAK> 191TH 
ENAK=AK- 128 

1090 LPRINTCHRS(AK) ; : NEXT:LPRINT:RETURN 


1200 REM SAVE ON TAPE 

1219 CLS:PRINT84]."SRUE. ON TAPE” 

1220 PRINT@131, 7 ;:INPUTAS:CLS:IFA$S O"T’ 
THEN200 

1230 PRINT@132, "PREPARE CASSETTE” :PRINT 
1240 INPUT“ THEN PRESS «RETURN» "5C 
1250 CLS:PRINTQ448," SAVING” 

1260 FORI-NTOOSTEP-]:K-I:IFS€(1) O"-"THE 
NI-0 

1220 NEXT :K-K*] :PRINT&"U2-DRTR",K 

1280 FORI=QTOK 

1290 PRINT&"ORTA",SSCI):PRINT84S6," LINE 
ТІ 


1300 NEXT :GOTO1«410 


1310 КЕП LORD ҒКОП ТӨРЕ 

1320 CLS:PRINT@3S,"LOAD FROM TAPE” 

1330 PRINT@131; T$ ; : INPUTR£ : IFAS < "T" THEN 
CLS:GOTO200 

1340 INPUT“ FILE МАПЕ" ;Ts 

1350 CLS:PRINT@132, "PREPARE CASSETTE” 
1360 INPUT" THEN PRESS «RETURN»";C 
1380 CLS:[NPUTa23"U2-DRTR",K 

1390 FORI=@TOK 

1400 INPUTS” DATA”, SS(]):PRINT@458, "LINE" 
31 МЕХТ 


АРС. Tass, Vey) 
l /Za- £ 
As Í 2. 


VZ Wordprocessor У2200/300 


This word processor has two 
different modes, normal and 
repeat. On the repeat mode 
the computer will allow the 
user to repeat a letter on the 
keyboard by holding the key 
down. 


The control keys are: 
CTRL-E = Select Mode 
CTRL-P = Print 
CTRL-O = Clear Screen 


G. Tunny 
Gorokon, NSW 


1 '*eaeeseaeeaeteea asss. 

2 '*VZ-WORDPROCESSOR* 

з e 4 * 

4 '* BY GLEN TUNNY ж 

5 '"*(C)OPYRIGHT 1987» 

b EEEO ААА eux 

8 GOSUB 1000 

10 CLS 

20 B=96:C=32:MD$="NORMAL" 
25 PRINTƏQ, "MODE:* 

30 As=INKEY$S:A$=INNKEY$- 
40 РОКЕ28672%С.В | 
45 PRINTƏ6,HDS$ 

46 IF AS=CHRS(135) AND MD$-"NORMAL"THENMD$-" REPEAT" :60Т030 


47 IF AS=CHR$(135) AND MD$-*REPEAT* THENMD$-* NORMAL * :60Т030 


50 IF AS=CHR$(8)ANDC>32 THEN C-C-1:GOTO 150 


62 IF AS=CHR$(9)ANDC<446 THEN C=C+1:GOTO 150 


70 IF AS-CHRS(27)ANDC263 THEN C-C-32:GOTO 150 
ВӘ IF AS-CHRS(10)ANDC4416 THEN С=С+32:60Т0 150 
90 IF AS-CHRS(13) THEN 509 

100 IF AS-CHR$(178) THEN 609 

IF AS-CHRS(140) THEN 12 

IF AS=** THEN BS="*:GOTO 150 

PRINT8C,AS:IF MD$-"NORMAL" AND AS-R$ THEN 150. 

140 B$-A$:C-C*1:SOUND10O, 1 
B=PEEK(28672+C) : РОКЕ28672+С, 32: IFINKEYS-* * ,FORI-1TO45 :NEXTI 
GOTO 30 , 

500 W=INT(C/32):W=W+1:W=W*32:C=W 

IF C>448 THENC=C-32 

GOTO 15@ 


PRINTƏQ, ° 
IF A=13 THEN 630 


“:А-ІМР(12) 


620 GOTO 700 

PRINTaB,*«PRINTER ERROR2*:REM С INVERSE 2 
SOUND23, 1 

РЕІМТӘВ, * 

SOUND 27,1 

A=INP(12) 

IF A=13 THEN 630 

690 GOTO 620 Ў | 
copy 

GOTO 30 

NEXT 

800 FORI#1T015 


810 K$2INKEYS:K$zINKEYS E 


72 — ЕТ! February 1988 


820 IF K$z'* 


THEN NEXTI 


830 RETURN 


1000 


1010 


1020 


1030 


1040 


1045 


1050 


1060 


1070 


1080 


1090 


1100 


ccs 

REM 
A$x*V2-HORDPROCESSOR* 
B$4* BY GLEN TUNNY *- 
Cs=" (COPYRIGHT 1987* 
D$="<<HIT ANY KEY>>* 
FORI=1TOLEN(AS) 
PRINT340, RIGHTS (AS, 1) 
POKE26624, 1: POKEZ6624,0 
NEXTI 

FORI=1TOLEN( BS) 


PRINT372,RIGHT$(B$,1) 


1110 


1111 


1120 


1130 


1140 


1150 


1160 


1170 


1180 


1190 


1200 


1210 


1220 


1230 


POKE 26624,1:РОКЕ26624,0 
NEXTI 

FORI=1TOLEN(C$) 
PRINTƏ1QA,RIGHT$(C$, 1) 
POKE 26624,1:POKE26624, Q 
NEXTI 

FORI=1TOLEN(D$) 
PRINT3136, RIGHTS (DS, 1) 
POKE26624, 1 : РОКЕ26524,0 
МЕХТІ 

РОКІ 170500: МЕХТІ 
A$=INKEY$:AS=INKEY$ 

IF А$="" 


THEN 1210 


RETURN 


That s А// 
Folks! 


